A067149 Indices of records of A067148.

1, 2, 5, 11, 23, 53, 293, 24773, 422573, 86203853

Offset

1,2

Comments

For the known terms, A067148(a(n))=n+1, a(n) is odd for n>2 and a(n)==2 (mod 3) for n>1. Do these trends continue?

Links

Table of n, a(n) for n=1..10.

Mathematica

a[ n_ ] := Module[ {}, If[ n==2, Return[ 1 ] ]; For[ f0=3; f1=2; f2=1; c=0, f0<=n, f0=(f2=f1)+(f1=f0), If[ Mod[ n-f0, f2 ]==0, c++ ] ]; c ]; For[ n=1; max=-1, True, n++, If[ a[ n ]>max, Print[ n ]; max=a[ n ] ] ]

Crossrefs

Cf. A067148.

Sequence in context: A274489 A192415 A201779 * A354150 A344782 A191240

Adjacent sequences: A067146 A067147 A067148 * A067150 A067151 A067152

Keyword

nonn,more

Author

John W. Layman, Jan 04 2002

Extensions

Last term from Dean Hickerson, Jan 12 2002

Status

approved