A102914 Continued fraction expansion of the number in A102913.

0, 24, 1, 1, 1, 4, 1, 7, 4, 2, 8, 35, 1, 6, 3, 3, 3, 4, 1, 4, 3, 4, 1, 1, 1, 1, 8, 1, 1, 1, 3, 4, 1, 3, 1, 1, 1, 1, 9, 7, 4, 1, 24, 1, 5, 6, 1, 3, 1, 1, 10, 1, 237, 1, 12, 2, 1, 12, 1, 21, 1, 1, 1, 14, 1, 4, 14, 72, 29, 5, 1, 1, 2, 1, 8, 2, 1, 43, 1, 1, 8, 1, 1, 1, 2, 8, 2, 1, 12, 3, 2, 1, 10, 1, 5, 6, 1

Offset: 0

Author

Jonathan Vos Post, Jan 17 2005

Keywords

• cofr
• nonn

Crossrefs

Cf. A001358, A010051, A051006, A102913.

Programs

Mathematica

SemiprimeQ[n_] := If[Plus @@ Last[ Transpose[ FactorInteger[n]]] == 2, 1, 0]; a = FromDigits[{Table[ SemiprimeQ[n], {n, 2, 10^3}], -2}, 2]; ContinuedFraction[ a, 100] (* Robert G. Wilson v, Jan 24 2005 *)

Extensions

More terms from Robert G. Wilson v, Jan 24 2005