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,2

Comments

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

Links

Table of n, a(n) for n=0..31.

Tanya Khovanova, Non Recursions.

Mathematica

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

Crossrefs

Cf. A001622, A004928.

Sequence in context: A050966 A113158 A004928 * A138063 A324630 A167734

Adjacent sequences: A004945 A004946 A004947 * A004949 A004950 A004951

Keyword

nonn

Author

N. J. A. Sloane

Status

approved