OFFSET
1,1
MATHEMATICA
a[1] = 3; a[n_] := a[n] = Floor[(26 + Sum[a[j], {j, n - 1}])/8]; Table[
a@ n, {n, 60}] (* Michael De Vlieger, Nov 29 2015 *)
PROG
(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
CROSSREFS
KEYWORD
nonn
AUTHOR
Graeme McRae, Jun 10 2006
EXTENSIONS
More terms from Michel Marcus, Nov 29 2015
STATUS
approved