OFFSET
1,1
COMMENTS
EXAMPLE
prime(1) = 2 -> 7 -> 17 -> 37 -> 77 = 7*11, so a(1) = 4.
MATHEMATICA
Table[p = Prime[n]; c = 1; While[p = 2*p + 3; PrimeQ[p], c++]; c, {n, 200}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Clark Kimberling, Oct 31 2024
STATUS
approved