A323085 Semiprimes that are the sum of the first k terms of A092190 for some k.
4, 14, 8567, 16499, 151211, 344891, 418831, 585197, 1049882, 1186582, 1671029, 2503966, 2989387, 4802311, 8291795, 9769711, 11420129, 13279957, 13677063, 15356513, 16258813, 24318863, 26874293, 39317497, 42862751
Offset: 1
Keywords
Examples
a(2) = 14 = Sum_{i=1..2} A092190(i). a(3) = 8567 = Sum_{i=1..13} A092190(i).
Links
- Wilmer Emiro Castrillon Calderon, Table of n, a(n) for n = 1..100
Programs
-
Mathematica
f[w_] := Select[Most@ NestWhile[Append[#1, {#2, #2 + #1[[-1, -1]]}] & @@ {#, w[[Length@ # + 1]]} &, {{#, #}} &@ First[w], #[[-1, -1]] <= Max@ w &][[All, -1]], PrimeOmega@ # == 2 &]; Block[{s = Select[Range[10^6], PrimeOmega@ # == 2 &], t}, f@ f@ s] (* Michael De Vlieger, Jan 04 2019 *)
Comments