|
|
A104119
|
|
Primes of the form 6^k + 23.
|
|
0
|
|
|
29, 59, 239, 1319, 46679, 60466199, 101559956668439, 170581728179578208279, 293242067884135544935936513642647623193965101079, 39503678872633023420521946711466143994775346134750732502780781099164095188067917234199
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
MATHEMATICA
|
a = Delete[Union[Flatten[Table[If [PrimeQ[6^n + 23] == True, 6^n + 23, 0], {n, 1, 1000}]]], 1]
|
|
PROG
|
(Magma) [ a: n in [0..250] | IsPrime(a) where a is 6^n+23 ]; // Vincenzo Librandi, Nov 18 2010
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|