|
|
A037210
|
|
Numbers n such that p-n=p#-n#, where p=nextprime(n), n#=nextprime(square root of n), p#=nextprime(square root of p).
|
|
0
|
|
|
2207, 5327, 7919, 12767, 27887, 39595, 44519, 54287, 139127, 160799, 253007, 299203, 332923, 351647, 368447, 383159, 458327, 502677, 597525, 619363, 863039, 908199, 966285, 994001, 1079517, 1247687, 1261127, 1442399, 1530161, 1559997
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
MATHEMATICA
|
npQ[n_]:=Module[{p=NextPrime[n], p1, n1=NextPrime[Sqrt[n]]}, p1= NextPrime[ Sqrt[p]]; p-n==p1-n1]; Select[Range[156*10^4], npQ] (* Harvey P. Dale, Dec 19 2021 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
easy,nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|