OFFSET
1,1
COMMENTS
This sequence is a generalized reference to Fermat primes.
MATHEMATICA
Table[k = 0; While[PrimeQ[(Prime[n+1] - 1)^(2^k) + 1], k++]; k - 1, {n, 100}] (* T. D. Noe, Apr 28 2012 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Thomas Ordowski, Apr 28 2012
STATUS
approved