OFFSET
1,1
COMMENTS
These are the k such that A002486(k+1) is prime. - Michel Marcus, Jul 15 2015
a(11) > 25000.
MATHEMATICA
$MaxExtraPrecision = 25000; lst = {}; cf = ContinuedFraction[Pi, 10000]; Do[ If[ PrimeQ[ Denominator[ FromContinuedFraction[ Take[ cf, n]] ]], AppendTo[lst, n]], {n, Length[cf]}]; lst
Position[Convergents[Pi, 7000], _?(PrimeQ[Denominator[#]]&)]//Flatten (* Harvey P. Dale, Aug 12 2021 *)
CROSSREFS
KEYWORD
nonn,more
AUTHOR
Jonathan Sondow and Robert G. Wilson v, Jun 28 2015
STATUS
approved