A120196 - OEIS

%I #15 Nov 30 2015 09:42:10

%S 3,3,4,4,5,5,6,7,7,8,9,10,12,13,15,17,19,21,24,27,30,34,38,43,48,54,

%T 61,69,77,87,98,110,124,139,157,176,198,223,251,282,318,357,402,452,

%U 509,572,644,724,815,917,1031,1160,1305,1468,1652,1858,2091,2352,2646,2977

%N a(1)=3; a(n) = floor((26 + Sum_{j=1..n-1} a(j))/8).

%t a[1] = 3; a[n_] := a[n] = Floor[(26 + Sum[a[j], {j, n - 1}])/8]; Table[

%t a@ n, {n, 60}] (* _Michael De Vlieger_, Nov 29 2015 *)

%o (PARI) lista(nn) = {va = vector(nn); va[1] = 3; for (n=2, nn, va[n] = (26 + sum(j=1, n-1, va[j]))\8;); va;} \\ _Michel Marcus_, Nov 29 2015

%Y Cf. A072493, A073941, A112088.

%K nonn

%O 1,1

%A _Graeme McRae_, Jun 10 2006

%E More terms from _Michel Marcus_, Nov 29 2015