|
| |
|
|
A075134
|
|
Indices of triple-safe primes: p=prime(n) is double-safe: q=(p-1)/2, r=(q-1)/2 and s=)r-1)/2 are all prime (and q is double-safe).
|
|
0
| |
|
|
9, 15, 128, 228, 417, 562, 1214, 1364, 2425, 3085, 5281, 8256, 8926, 9187, 9332, 12782, 14497, 14607, 16227, 18763, 19601, 21476, 29911, 36080, 36218, 37083, 38660, 40104, 40863, 42094, 44126, 46918, 48924, 49301, 53564, 56568, 62982, 64775, 66530, 68218
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,1
|
|
|
COMMENTS
| prime p is safe if q=(p-1)/2 is prime, so p is double safe if also r=(q-1)/2 is prime. So p is triple-safe if q is double safe Safe primes are in A005385, indices of double-safe primes are in A075133
|
|
|
EXAMPLE
| 15 is a member because p(15)=47, q=(p-1)/2=23, r=(q-1)2=11 and s=(r-1)=5 are primes.
|
|
|
MATHEMATICA
| se3=Select[(Select[(Select[(Prime[Range[30000]]-1)/2, PrimeQ]-1)/2, PrimeQ]-1)/2, PrimeQ]; Map[PrimePi, Map[2(2(2*#+1)+1)+1&, se3]]
tspQ[n_]:=And@@PrimeQ[NestList[(#-1)/2&, Prime[n], 3]]; Select[ Range[ 100000], tspQ] (* From Harvey P. Dale, Jul 17 2011 *)
|
|
|
CROSSREFS
| Cf. A005385, A075133.
Sequence in context: A177184 A098146 A124274 * A158789 A100241 A078794
Adjacent sequences: A075131 A075132 A075133 * A075135 A075136 A075137
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Zak Seidov (zakseidov(AT)yahoo.com), Sep 04 2002
|
|
|
EXTENSIONS
| More terms from Harvey P. Dale, Jul 17 2011
|
| |
|
|
