|
Search: id:A104163
|
|
|
| A104163 |
|
Sophie Germain type primes where 3*Prime[n]=2*Prime[m]+1. |
|
+0
1
|
|
| 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; listen)
|
|
|
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: A100620 A002177 A141193 this_sequence A145993 A054690 A054691
Adjacent sequences: A104160 A104161 A104162 this_sequence A104164 A104165 A104166
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Roger Bagula (rlbagulatftn(AT)yahoo.com), Mar 10 2005
|
|
|
Search completed in 0.002 seconds
|
