OFFSET
1,1
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..1000
EXAMPLE
{11, 23, 227, 179, 107, ...} are the smallest safe primes such that {11+12, 23+24, 227+36, 179+48, 107+60, ...} = {23, 47, 263, 227, 167, ...} are their next safe primes to which the corresponding Sophie Germain primes are {11, 23, 131, 113, 83, ...} respectively.
MATHEMATICA
safeQ[p_] := PrimeQ[(p-1)/2]; max = 38; seq = Table[0, {max}]; c=0; p1 = p2 = 11; While[c < max, p2 = NextPrime[p2]; If[safeQ[p2], d = (p2 - p1)/12; If[d <= max && seq[[d]] == 0, c++; seq[[d]] = p1]; p1 = p2]]; seq (* Amiram Eldar, Jan 13 2020 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Labos Elemer, Jan 26 2001
EXTENSIONS
Offset corrected by Amiram Eldar, Jan 13 2020
STATUS
approved