OFFSET
1,2
COMMENTS
Primes: 2, 3, 19, 1213, 4507, ...
No further terms < 10^5. - Ray Chandler, Apr 13 2016
EXAMPLE
1 is in this sequence because 2*1*3^1 + 1 = 7 is prime.
MATHEMATICA
Select[Range[1600], PrimeQ[2 # 3^# + 1] &] (* Vincenzo Librandi, Jan 03 2016 *)
PROG
(Magma) [n: n in [1..2000]| IsPrime(2*n*3^n+1)]; // Vincenzo Librandi, Jan 03 2016
(PARI) is(n)=ispseudoprime(2*n*3^n+1) \\ Charles R Greathouse IV, Feb 08 2016
CROSSREFS
KEYWORD
nonn,more
AUTHOR
Juri-Stepan Gerasimov, Jan 02 2016
EXTENSIONS
a(24) and a(26) inserted by Charles R Greathouse IV, Feb 08 2016
a(28)-a(30) from Charles R Greathouse IV, Feb 08 2016
a(31)-a(32) from Ray Chandler, Apr 05 2016
a(33) from Ray Chandler, Apr 08 2016
a(34) from Ray Chandler, Apr 09 2016
STATUS
approved