|
|
A108583
|
|
Primes of the form 1 + Product_{j=1..k} b(j), where b(n) = b(n-1) + 2*A005185(n) and b(1) = 2.
|
|
2
|
|
|
|
OFFSET
|
0,1
|
|
COMMENTS
|
|
|
LINKS
|
|
|
MATHEMATICA
|
Hofstadter[n_]:= Hofstadter[n]= If[n<2, 1, Hofstadter[n-Hofstadter[n- 1]] +Hofstadter[n-Hofstadter[n-2]]]; (* A005185 *)
b[n_]:= b[n]= If[n==1, 2, b[n-1] +2*Hofstadter[n]]; (* A108585 *)
p[n_]:= p[n]= Product[b[j], {j, n}];
Select[Table[p[n] +1, {n, 500}], PrimeQ]
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,less
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|