login
A102914
Continued fraction expansion of the number in A102913.
1
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,2
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 *)
CROSSREFS
KEYWORD
cofr,nonn
AUTHOR
Jonathan Vos Post, Jan 17 2005
EXTENSIONS
More terms from Robert G. Wilson v, Jan 24 2005
STATUS
approved