A004948 a(n) = round(n*phi^13), where phi is the golden ratio, A001622.

0, 521, 1042, 1563, 2084, 2605, 3126, 3647, 4168, 4689, 5210, 5731, 6252, 6773, 7294, 7815, 8336, 8857, 9378, 9899, 10420, 10941, 11462, 11983, 12504, 13025, 13546, 14067, 14588, 15109, 15630, 16151

Offset: 0

Author

N. J. A. Sloane

Keywords

• nonn

Comments

Differs from A004928 first at index n = 261. - R. J. Mathar, Oct 28 2008

Links

• Tanya Khovanova, Non Recursions.

Crossrefs

Cf. A001622, A004928.

Programs

Mathematica

With[{c=GoldenRatio^13},Round[c*Range[0,40]]] (* Harvey P. Dale, May 27 2016 *)