OFFSET
1,1
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
EXAMPLE
For {467,55079,103007,728579,887759,..} safe primes {479,55103,103043,728627,887819} are the next primes, whose differences are 12,24,36,48,60,.. respectively,not necessarily equal to 12, the possible minimum (see A059322).
MATHEMATICA
ss[x_] := PrimeQ[(Prime[x]-1)/2]&&PrimeQ[(Prime[x+1]-1)/2] t=Prime[Flatten[Position[Table[ss[w], {w, 1, 100000}], True]]]
CROSSREFS
KEYWORD
nonn
AUTHOR
Labos Elemer, Jan 29 2001
STATUS
approved