OFFSET
1,1
COMMENTS
Primes p such that 9*p+2, 81*p+20 and 729*p+182 are also primes. - Vincenzo Librandi, Aug 04 2010
LINKS
John Cerkan, Table of n, a(n) for n = 1..10000
MAPLE
A023296:=n->`if`(isprime(n) and isprime(9*n+2) and isprime(81*n+20) and isprime(729*n+182), n, NULL): seq(A023296(n), n=1..5*10^4); # Wesley Ivan Hurt, Feb 22 2017
MATHEMATICA
Select[Prime@ Range@ 2100, Times @@ Boole@ PrimeQ@ NestList[9 # + 2 &, #, 3] > 0 &] (* Michael De Vlieger, Feb 22 2017 *)
Select[Prime[Range[2100]], AllTrue[Rest[NestList[9#+2&, #, 3]], PrimeQ]&] (* Harvey P. Dale, May 14 2024 *)
PROG
(Magma) [n: n in [1..450000] | IsPrime(n) and IsPrime(9*n+2) and IsPrime(81*n+20) and IsPrime(729*n+182)]; // Vincenzo Librandi, Aug 04 2010
CROSSREFS
KEYWORD
nonn
AUTHOR
STATUS
approved