|
| |
|
|
A104163
|
|
Sophie Germain type primes where 3*Prime[n]=2*Prime[m]+1.
|
|
0
| |
|
|
7, 19, 43, 61, 79, 109, 151, 163, 223, 271, 349, 421, 439, 523, 601, 613, 631, 673, 691, 811, 853, 919, 991, 1009, 1051, 1063, 1153, 1213, 1231, 1279, 1321, 1429, 1531, 1549, 1663, 1693, 1789, 1801, 1873, 1933, 1951, 2113, 2143, 2179, 2221, 2239, 2503, 2539
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,1
|
|
|
FORMULA
| a(n) = If (3*Prime[n]-1)/2 is prime, then a[m]=(3*Prime[n]-1)/2
|
|
|
MATHEMATICA
| a = Delete[Union[Table[If [PrimeQ[(3*Prime[n] - 1)/2] == True, (3*Prime[n] - 1)/2, 0], {n, 1, 1000}]], 1]
|
|
|
CROSSREFS
| Cf. Sophie Germain primes: A005384.
Sequence in context: A002177 A192755 A141193 * A145993 A054690 A054691
Adjacent sequences: A104160 A104161 A104162 * A104164 A104165 A104166
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Roger Bagula (rlbagulatftn(AT)yahoo.com), Mar 10 2005
|
| |
|
|
