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

Author

T. D. Noe, Jul 23 2007

Keywords

• nonn

Comments

Same recursion as A006336, but different initial condition.

Links

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

Programs

Mathematica

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