OFFSET
1,1
COMMENTS
Where A138363 exceeds 1.
MATHEMATICA
f[n_] := Block[{c = 0, e, j, k = 1, p = Prime@n, q}, j = 1 + PrimePi@ Sqrt@ p; While[k < j, q = Prime@k; If[p < q + q^Floor@ Log[q, p], c++ ]; k++ ]; c]; lst = {}; Do[ If[f@n > 1, AppendTo[lst, n]; Print[Prime@n]], {n, 25*10^5}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Reinhard Zumkeller & Robert G. Wilson v, Mar 23 2008
STATUS
approved