|
| |
|
|
A067149
|
|
Values of n where record values of A067148 are set.
|
|
1
| | |
|
|
|
OFFSET
| 0,2
|
|
|
COMMENTS
| For the known terms, A067148(a(n))=n, a(n) is odd for n>1 and a(n)==2 (mod 3) for n>0. Do these trends continue?
|
|
|
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: A018112 A192415 A201779 * A191240 A091358 A091359
Adjacent sequences: A067146 A067147 A067148 * A067150 A067151 A067152
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| John W. Layman (layman(AT)math.vt.edu), Jan 04 2002
|
|
|
EXTENSIONS
| Last term from Dean Hickerson (dean.hickerson(AT)yahoo.com), Jan 12 2002
|
| |
|
|
