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
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