OFFSET
1,2
COMMENTS
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
KEYWORD
nonn
AUTHOR
J. H. Conway, May 17 2002
EXTENSIONS
More terms from David W. Wilson, May 17 2002
STATUS
approved