OFFSET
2,1
LINKS
Robert Israel, Table of n, a(n) for n = 2..2193
MAPLE
f:= proc(n) local k, p;
for k from 1 to n-1 do
p:= 2^(n-k)*3^k+1;
if isprime(p) then return p fi
od;
0
end proc:
map(f, [$2..40]); # Robert Israel, Aug 30 2020
PROG
(PARI) for(n=2, 34, my(pm=oo); for(j=1, n-1, my(k=n-j, p=2^j*3^k+1); if(isprime(p), pm=min(p, pm))); print1(if(pm==oo, 0, pm), ", "))
CROSSREFS
KEYWORD
nonn
AUTHOR
Hugo Pfoertner, Aug 28 2020
STATUS
approved