login
Numbers n such that A070871(n) = n.
3

%I #7 Feb 14 2015 21:06:25

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

%N Numbers n such that A070871(n) = n.

%C Could be called nutritionally balanced numbers.

%t 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}]

%Y Cf. A002487.

%K nonn

%O 1,2

%A _J. H. Conway_, May 17 2002

%E More terms from _David W. Wilson_, May 17 2002