login
A083240
Primes prime(j) such that prime(j)-j is a true power of prime.
3
37, 47, 163, 167, 647, 881, 1151, 1627, 3271, 5179, 5659, 11597, 13799, 18503, 31259, 43331, 44201, 76441, 163883, 277231, 391067, 402487, 630493, 643703, 809407, 985679, 1170311, 1326989, 1365799, 2113973, 2260631, 2273101, 2392939, 2662133, 2750431
OFFSET
1,1
LINKS
FORMULA
A001221(a(n)-A000720(a(n))) = 1 and a(n)-A000720(a(n)) is in A025475.
EXAMPLE
11597 is the 1396th prime and 11597-1396 = 10201 = 101^2.
MATHEMATICA
Do[s=Prime[n]-n; If[Equal[Length[FactorInteger[s]], 1]&&!PrimeQ[s], Print[Prime[n]]], {n, 1, 100000}]
CROSSREFS
Sequence in context: A231254 A218834 A039465 * A162556 A129072 A297911
KEYWORD
nonn
AUTHOR
Labos Elemer, Apr 24 2003
STATUS
approved