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

Author

Reinhard Zumkeller, Jan 05 2015

Keywords

• nonn
• more

Comments

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

Crossrefs

Cf. A253443, A253444, A109890.

Programs

Haskell

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

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 *)

Extensions

More terms from Michael De Vlieger, Apr 27 2024