OFFSET
1,1
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..1000
FORMULA
EXAMPLE
MATHEMATICA
Do[s=Prime[n]; s1=Prime[n+1]; If[PrimeQ[s+d]&& !Equal[s1-s, d], Print[s]], {n, 1, 1000}]
Select[Prime[Range[300]], PrimeQ[#+10]&&NextPrime[#]!=(#+10)&] (* Harvey P. Dale, Oct 25 2020 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Labos Elemer, Jul 28 2003
STATUS
approved