|
|
A090122
|
|
Numbers n such that nextprime(n^4) - prevprime(n^4) = 4.
|
|
4
|
|
|
2, 3, 21, 34, 46, 87, 99, 129, 141, 220, 242, 254, 266, 278, 279, 476, 526, 550, 616, 627, 657, 772, 777, 783, 795, 1072, 1088, 1322, 1442, 1486, 1540, 1552, 1586, 1653, 1725, 1833, 1959, 1994, 2001, 2043, 2068, 2192, 2224, 2360, 2384, 2432, 2734, 2770, 2866
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
Table of n, a(n) for n=1..49.
|
|
EXAMPLE
|
n=21: {p=194479, n^4=194481, q=194483}, q-p=4.
|
|
MATHEMATICA
|
pre[x_] := Prime[PrimePi[x]] nex[x_] := Prime[PrimePi[x]+1] de[x_] := Prime[PrimePi[x]+1]-Prime[PrimePi[x]] k=4; Do[If[Equal[Prime[PrimePi[n^k]+1]-Prime[PrimePi[n^k]], 4], Print[n]], {n, 2, 100000}]
|
|
CROSSREFS
|
Cf. A077038, A058043, A090122-A090125.
Sequence in context: A024765 A282340 A248953 * A328734 A296254 A114749
Adjacent sequences: A090119 A090120 A090121 * A090123 A090124 A090125
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Labos Elemer, Jan 12 2004
|
|
EXTENSIONS
|
a(29)-a(49) from Giovanni Resta, May 08 2017
|
|
STATUS
|
approved
|
|
|
|