|
%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
|
