Короче я сегодня сам себе изнасиловал мозг!! ! Причем я насиловал его по всякому !!!Помогите!!!

Кинул свою выкладку в ЛС)

Если это все, то тебе нужно просто добавлять 1 к слагаемому при переходе десятков. Я накатаю на паскале, на свой пхп переводи уж как-нибудь сам. Пусть у нас задается количество членов n, надо посчитать сумму s. Тогда так:

s:=0;
c:=3;
oldd:=0;
for i:=1 to n do begin
s:=s+c;
c:=c+3;
if c mod 100 div 10 <>oldd then c:=c+1;
oldd:=c mod 100 div 10;
end;

Я обратил внимание на условие, и в нем нет никакого указания на то, чтобы выявить закономерность.
В любом случае, выявлять закономерности в ряде чисел - это выходит за рамки веб-кодинга.
В вашем случае нужно тупо найти сумму ряда и поделить на количество.

Раз можно на Паскале показать, то можно и на VBA
Sub Vasiliy_Sidorenko()
Dim r&, s&, c&, m!
Do Until r >= 29
r = r + IIf(Right(r, 1) = "9", 4, 3)
s = s + r: c = c + 1
Loop
m = s / c
End Sub

если через закономерность именно этой группы чисел, то
(3*(1+2+3))/3 +(10*(0+1+2))/3
или просто
6+10
или даже 16
Нафига тут цикл непонятно

Ответ удален, написал одновременно с ответом выше.

Это не арифметические прогрессия, но закономерность есть, если чисел 3n:
s = 3 + 6 + 9 +..+30(n - 1)+(3 + 6 + 9) = 18n + (30n)(n - 1)/2= 18n + 15n*(n - 1)
среднее = 6 + 5(n - 1) = 5n + 1

это арифметическая прогрессия, тут никакой цикл не нужен

сложи числа и раздели на их количество