OFFSET
1,1
LINKS
Pierre CAMI, Table of n, a(n) for n = 1..2500
MAPLE
A134303 := proc(n)
for k from 1 do
k*2^n*(k*2^n-1)-1 ;
if isprime(%) then
return k;
end if;
end do:
end proc:
seq(A134303(n), n=1..80) ; # R. J. Mathar, Nov 30 2011
MATHEMATICA
lk[n_]:=Module[{k=1, n2=2^n}, While[!PrimeQ[k*n2(k n2-1)-1], k++]; k]; Array[ lk, 70] (* Harvey P. Dale, Sep 29 2017 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Pierre CAMI, Oct 19 2007
STATUS
approved