|
Search: id:A070872
|
|
| |
| |
|
|
OFFSET
|
1,2
|
|
|
COMMENT
|
Could be called nutritionally balanced numbers.
|
|
MATHEMATICA
|
a[0] = 1; a[n_] := a[n] = If[ OddQ[n], a[n/2 - 1/2], a[n/2] + a[n/2 - 1]]; Do[ If[ a[n]*a[n - 1] == n, Print[n]], {n, 1, 5*10^6}]
|
|
CROSSREFS
|
Cf. A002487.
Sequence in context: A052522 A061999 A066756 this_sequence A055685 A046399 A082619
Adjacent sequences: A070869 A070870 A070871 this_sequence A070873 A070874 A070875
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
J. H. Conway, May 17, 2002.
|
|
EXTENSIONS
|
More terms from D. W. Wilson, May 17, 2002.
|
|
|
Search completed in 0.006 seconds
|
