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

Links

Table of n, a(n) for n=0..96.

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

Cf. A001358, A010051, A051006, A102913.

Sequence in context: A040581 A305762 A040582 * A040583 A074466 A040579

Adjacent sequences: A102911 A102912 A102913 * A102915 A102916 A102917

Keyword

cofr,nonn

Author

Jonathan Vos Post, Jan 17 2005

Extensions

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

Status

approved