A083240 Primes prime(j) such that prime(j)-j is a true power of prime.
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
Keywords
Examples
11597 is the 1396th prime and 11597-1396 = 10201 = 101^2.
Links
- Donovan Johnson, Table of n, a(n) for n = 1..1000
Programs
-
Mathematica
Do[s=Prime[n]-n; If[Equal[Length[FactorInteger[s]], 1]&&!PrimeQ[s], Print[Prime[n]]], {n, 1, 100000}]