|
%I #5 Mar 30 2012 18:50:44
%S 1,2,5,7,19,17,25,29,0,73,65,67,99,97,113,121,0,0,301,289,0,257,265,
%T 277,393,401,421,385,451,449,481,497,0,0,0,0,0,1201,1161,1153,0,0,
%U 1025,1033,1059,1057,1105,1129,0,1569,1613,1601,1681,1697,1537,1541,1801,1825
%N First occurrence of n in A096036 or 0 if n does not appear.
%C Not appearing in A096036 are 9, 17, 18, 21, 33, 34, 35, 36, 37, 41, 42, 49, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 77, 81, 82, 83, 84, 85, 97, 98, 105, ...,.
%F A096036: a(n)= ceiling(n/a(ceiling(n/2))) with a(1) = 1.
%t a[1] = 1; a[n_] := a[n] = Ceiling[ n / a[ Ceiling[n/2]]]; t = Table[ a[n], {n, 2000}]; b[n_] := Block[{p = Position[t, n, 1, 1]}, If[p == {}, 0, p]]; Flatten[ Table[ b[n], {n, 60}]]
%Y Cf. A096036.
%K nonn
%O 1,2
%A _Reinhard Zumkeller_ and _Robert G. Wilson v_, Jul 21 2004
|
