OFFSET
1,1
FORMULA
Levels of primes are defined in A117563. Conjecture: there are an infinite number of prime members at each level.
EXAMPLE
MATHEMATICA
f[n_] := If[n == 1, 0, Block[{p = Prime@n, np = Prime[n + 1]}, (2p - np)/Min@Select[Divisors[2p - np], # >= np - p &]]]; t = Table[0, {100}]; Do[a = (f@n + 1)/2; If[a < 101 && t[[a]] == 0, t[[a]] = Prime@n; Print[{a, n, Prime@n}]], {n, 10^6}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Rémi Eismann and Robert G. Wilson v, May 12 2006
STATUS
approved