OFFSET
2,1
LINKS
Pierre CAMI, Table of n, a(n) for n = 2..1800
EXAMPLE
3^2*2^3-1=71 prime so a(2)=3.
7^2*2^5-1=1567 prime so a(3)=7.
MATHEMATICA
Table[k=3; While[Not[PrimeQ[k^2*2^Prime[n]-1]], k=NextPrime[k]]; k, {n, 2, 100}] (* Vaclav Kotesovec, Dec 21 2014 *)
PROG
(PFGW & SCRIPT)
SCRIPT
DIM n, 1
DIM q
OPENFILEOUT myf, a(n).txt
LABEL loop1
SET n, n+1
SET q, 1
LABEL loop2
SET q, q+1
PRP p(q)^2*2^p(n)-1
IF ISPRP THEN GOTO a
GOTO loop2
LABEL a
WRITE myf, q
GOTO loop1
CROSSREFS
KEYWORD
nonn
AUTHOR
Pierre CAMI, Dec 21 2014
STATUS
approved