OFFSET
1,2
FORMULA
a(n) = floor(c*2^n), where c = 0.6083600446... - Lorenzo Sauras Altuzarra, Jan 01 2023
MAPLE
a := proc(n)
local c, k:
c, k := 1, 1:
while c < n do
if k > 1 and not isprime(k) then k := 2*k+1: else k := 2*k: fi:
c := c+1: od:
k: end: # Lorenzo Sauras Altuzarra, Jan 02 2023
CROSSREFS
KEYWORD
nonn
AUTHOR
Franklin T. Adams-Watters, Nov 17 2006
STATUS
approved