Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.
%I #6 Aug 04 2024 17:04:26
%S 0,1,10,1,4,6,1,7,3,1,1,5,18,7,1,3,2,133,5,1,5,4,1,4,1,11,19,1,4,4,1,
%T 7,1,23,1,4,2,4,1,13,1,1,2,17,1,4,2,1,1,5,9,3,2,207,4,1,3,4,4,31,2,28,
%U 2,2,1,1,7,3,3,3,1,1,792,9,1,7,3,2,2,5,2,4,1,1,1,64,2,1,2,4,1,4,73,2,1,1,1
%N Continued fraction expansion of constant defined in A100924.
%e 0.9152947975135605797336153972856208111251020453695777508300794...
%t ContinuedFraction[Sum[If[And[PrimeQ[6*k - 1], PrimeQ[6*k + 1]], 1, 0]*2^(-k), {k, 1, 500}], 110]
%Y Cf. A100923, A100924 (decimal expansion).
%K cofr,nonn
%O 0,3
%A Joseph Biberstine (jrbibers(AT)indiana.edu), Nov 22 2004
%E Offset changed by _Andrew Howroyd_, Aug 04 2024