A253584 Distinct terms in A253443.

4, 5, 7, 11, 17, 34, 37, 43, 67, 73, 127, 141, 157, 173, 227, 283, 347, 359, 401, 409, 607, 857, 1091, 1303, 1823, 1907, 2281, 2437, 2441, 2609, 2969, 3851, 4211, 4691, 6907, 7537, 8429, 10301, 11953, 14081, 14557

Offset

1,1

Comments

a(n) occurs exactly A253444(n) times in A253443.

Links

Table of n, a(n) for n=1..41.

Mathematica

nn = 2^14; c[_] := False;
Array[Set[{a[#], c[#]}, {#, True}] &, 2]; u = s = a[1] + a[2];
Rest@ Reap[Monitor[Do[k = SelectFirst[Divisors[s], ! c[#] &];
  c[k] = True; s += k;
If[k == u, Sow[u]; While[c[u], u++]], {n, 3, nn}], n]][[-1, 1]] (* Michael De Vlieger, Apr 27 2024 *)

Prog

(Haskell)
import Data.List (group)
a253584 n = a253584_list !! (n-1)
a253584_list = map head $ group a253443_list

Crossrefs

Cf. A253443, A253444, A109890.

Sequence in context: A240118 A343211 A237133 * A062709 A242212 A129302

Adjacent sequences: A253581 A253582 A253583 * A253585 A253586 A253587

Keyword

nonn,more

Author

Reinhard Zumkeller, Jan 05 2015

Extensions

More terms from Michael De Vlieger, Apr 27 2024

Status

approved