OFFSET
1,2
COMMENTS
All terms > 1 are multiples of 3. Also, no term is congruent to 3 modulo 5.
LINKS
Zak Seidov, Table of n, a(n) for n = 1..1367 [Duplicate terms removed by Georg Fischer, Nov 03 2024]
MAPLE
select(t -> isprime(2*t^2+1) and isprime(2*t^3+1), [$1..6000]); # Robert Israel, Nov 03 2024
MATHEMATICA
s={1}; Do[If[PrimeQ [2k^2+1]&&PrimeQ[2k^3+1], AppendTo[s, k]], {k, 3, 10^3, 3}]; s
Select[Range[3500], PrimeQ[2 #^2 + 1] && PrimeQ[2 #^3 + 1]&] (* Vincenzo Librandi, Mar 29 2014 *)
PROG
(PARI) s=[]; for(n=1, 4000, if(isprime(2*n^2+1) && isprime(2*n^3+1), s=concat(s, n))); s \\ Colin Barker, Mar 28 2014
CROSSREFS
KEYWORD
nonn
AUTHOR
Zak Seidov, Mar 28 2014
STATUS
approved