|
|
A023280
|
|
Primes that remain prime through 3 iterations of function f(x) = 3x + 10.
|
|
3
|
|
|
3, 19, 47, 149, 199, 233, 353, 563, 607, 709, 919, 1013, 1361, 1367, 1697, 1801, 1871, 2137, 2203, 2819, 2879, 2917, 3041, 3229, 3449, 3701, 3943, 4093, 4111, 4177, 4567, 4973, 5519, 5689, 5987, 6053, 6359, 6421, 6841, 7019, 7283, 8647, 8951, 9109, 9719
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
Primes p such that 3*p+10, 9*p+40 and 27*p+130 are also primes. - Vincenzo Librandi, Aug 04 2010
|
|
LINKS
|
|
|
MATHEMATICA
|
Select[Prime[Range[1200]], AllTrue[Rest[NestList[3#+10&, #, 3]], PrimeQ]&] (* The program uses the AllTrue function from Mathematica version 10 *) (* Harvey P. Dale, Mar 22 2015 *)
|
|
PROG
|
(Magma) [n: n in [1..150000] | IsPrime(n) and IsPrime(3*n+10) and IsPrime(9*n+40) and IsPrime(27*n+130)] // Vincenzo Librandi, Aug 04 2010
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|