This site is supported by donations to The OEIS Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A120044 The 10^n-th 3-almost prime. 2
 8, 45, 412, 3918, 38991, 395085, 4046429, 41657362, 429891626, 4439956573, 45851698382, 473238120286, 4880292241955, 50280826966354 (list; graph; refs; listen; history; text; internal format)
 OFFSET 0,1 LINKS MATHEMATICA ThreeAlmostPrimePi[n_] := Sum[ PrimePi[n/(Prime@i*Prime@j)] - j + 1, {i, PrimePi[n^(1/3)]}, {j, i, PrimePi@ Sqrt[n/Prime@i]}]; ThreeAlmostPrime[n_] := Block[{e = Floor[Log[2, n]], a, b}, a = 2^e; Do[b = 2^p; While[ThreeAlmostPrimePi[a] < n, a = a + b]; a = a - b/2, {p, e, 0, -1}]; a + b/2]; Do[ Print@ThreeAlmostPrime[10^n], {n, 0, 13}] ThreePrime[n_] := Block[{e = Floor[ Log[2, n] +2], a, b}, a = 2^e; Do[b = 2^p; While[ ThreePrimePi[a] < n, a = a + b]; a = a - b/2, {p, e, 0, -1}]; a + b/2]; Table[ ThreePrime[n], {n, 0, 13}] CROSSREFS Cf. A109251, A006988, A114125, A120045, A120046. Sequence in context: A289896 A006887 A009369 * A002686 A110348 A213132 Adjacent sequences:  A120041 A120042 A120043 * A120045 A120046 A120047 KEYWORD more,nonn AUTHOR Robert G. Wilson v, Feb 15 2006 STATUS approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent | More pages
The OEIS Community | Maintained by The OEIS Foundation Inc.