A131882 a(0)=1; thereafter a(n)=a(n-1)+a([n/Phi]), where Phi=(1+sqrt(5))/2, the golden ratio.

1, 2, 4, 6, 10, 16, 22, 32, 42, 58, 80, 102, 134, 176, 218, 276, 334, 414, 516, 618, 752, 886, 1062, 1280, 1498, 1774, 2108, 2442, 2856, 3270, 3786, 4404, 5022, 5774, 6660, 7546, 8608, 9670, 10950, 12448, 13946, 15720, 17494, 19602, 22044, 24486, 27342

Offset

0,2

Comments

Same recursion as A006336, but different initial condition.

Links

T. D. Noe, Table of n, a(n) for n = 0..1000

Mathematica

a[0]=1; a[n_] := a[n] = a[n-1] + a[Floor[n/GoldenRatio]]; Table[a[n], {n, 0, 100}]

Crossrefs

Sequence in context: A258599 A101176 A192447 * A073150 A076529 A323283

Adjacent sequences: A131879 A131880 A131881 * A131883 A131884 A131885

Keyword

nonn

Author

T. D. Noe, Jul 23 2007

Status

approved