login

Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.

Continued fraction expansion of constant defined in A100924.
2

%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