A070872 Numbers n such that A070871(n) = n.

1, 2, 6, 66, 216, 1159, 2184

Offset

1,2

Comments

Could be called nutritionally balanced numbers.

Links

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

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: A193609 A061999 A066756 * A055685 A368511 A368512

Adjacent sequences: A070869 A070870 A070871 * A070873 A070874 A070875

Keyword

nonn

Author

J. H. Conway, May 17 2002

Extensions

More terms from David W. Wilson, May 17 2002

Status

approved