|
%I #2 Mar 30 2012 17:30:44
%S 1,3,7,6,12,16,0,11,21,23,20,18,24,0,33,25,36,37,38,28,34,40,31,47,81,
%T 44,0,45,0,57,62,66,48,61,84,52,0,67,55,69,85,97,63,76,103,109,131,79,
%U 87,118,0,86,95,139,102,80,107,113,0,91,101,133,183,134,158,104,0,141
%N Least k such that A070867(k) = n, or 0 if no such k exist.
%C a(n) = 0 for n = 7, 14, 27, 29, 37, 51, 59, 67, 88, 90, 97, 103, 106, 140, 156, 157, 158, 167, 174, 175, 177, 179, 193, 195, 199, 201, 207, 211, 215, 235, 241, 245, 250, 252, 258, 277, 282, 291, 294, 298, 300, 302, 305, 306, 317, 323, 327, 328, 329, 343, 346, 348, ...
%t a[1] = a[2] = 1; a[n_] := a[n] = a[n - 1 - a[n - 1]] + a[n - 1 - a[n - 2]]; = Table[0, {100}]; Do[c = a[n]; If[c < 101 && b[[c]] == 0, b[[c]] = n], {n, 1, 10^3}]; b
%Y Cf. A070867.
%K easy,nonn
%O 1,2
%A _Robert G. Wilson v_, May 20 2002
|
