OFFSET
1,1
LINKS
Donovan Johnson, Table of n, a(n) for n = 1..1000
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
KEYWORD
nonn
AUTHOR
Labos Elemer, Apr 24 2003
STATUS
approved