OFFSET
1,1
COMMENTS
The prime p seems to be < 31.
LINKS
Pierre CAMI, Table of n, a(n) for n = 1..10800
EXAMPLE
2^1+5*2^1-1=11 prime so p=5 for n=1.
2^2+5*2^2-1=23 prime so p=5 for n=2.
2^3+5*2^3-1=47 prime so p=5 for n=3.
PROG
PFGW64 from Primeform group and SCRIPTIFY
Command : pfgw64 -f in.txt
in.txt file :
SCRIPT
DIM nn, 0
DIM mm
DIM kk
DIMS tt
OPENFILEOUT myfile, prem.txt
LABEL loopn
SET nn, nn+1
IF nn>10800 THEN END
SET kk, 2
LABEL loopk
SET kk, kk+1
SET mm, nn/3
LABEL loopm
SET mm, mm+1
IF mm>nn THEN GOTO loopk
SETS tt, %d, %d, %d\ ; nn; p(kk); mm
PRP 2^nn+p(kk)*2^mm-1, tt
IF ISPRIME THEN GOTO a
IF ISPRP THEN GOTO a
GOTO loopm
LABEL a
WRITE myfile, tt
GOTO loopn
CROSSREFS
KEYWORD
nonn
AUTHOR
Pierre CAMI, Jan 24 2012
STATUS
approved