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