|
Search: id:A111210
|
|
|
| A111210 |
|
Primes of the form (2^n-Prime[n])/3. |
|
+0
1
|
|
| 3, 7, 17, 37, 79, 163, 183251937907, 96076792050570491, 27043212804868893898596335047829, 1772303994379887830538409413707125877, 510831846955296286119449009050103061206246374061200369
(list; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
MATHEMATICA
|
a = Flatten[Table[If[PrimeQ[(2^n - Prime[n])/3] == True, (2^n - Prime[n])/3, {}], {n, 1, 100}]]
Table[ If[PrimeQ[(2^n - Prime[n])/3], (2^n - Prime[n])/3, {}], {n, 1, 200}]]//Flatten (* Robert G. Wilson v *)
|
|
CROSSREFS
|
Sequence in context: A110930 A026646 A026668 this_sequence A033489 A026396 A141199
Adjacent sequences: A111207 A111208 A111209 this_sequence A111211 A111212 A111213
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Roger L. Bagula (rlbagulatftn(AT)yahoo.com), Oct 25 2005
|
|
EXTENSIONS
|
a(9)-a(11) from Robert G. Wilson v (rgwv(at)rgwv.com), Oct 31 2005
Edited by njas, Nov 19 2005
|
|
|
Search completed in 0.002 seconds
|
