A347939 Primitive terms of A347936: terms of A347936 that are not multiples of other terms of A347936.
155925, 225225, 259875, 294525, 297675, 363825, 405405, 429975, 496125, 552825, 562275, 571725, 606375, 628425, 694575, 760725, 765765, 921375, 945945, 987525, 1044225, 1167075, 1195425, 1334025, 1412775, 1447875, 1486485, 1507275, 1526175, 1611225, 1640925, 1645875
Offset: 1
Keywords
Examples
The first 8 terms of this sequence are the same as those of A347936. But A347936(9) = 467775 = 3 * 155925 = 3 * A347936(1) is not a term of this sequence.
Links
- Amiram Eldar, Table of n, a(n) for n = 1..10000
Programs
-
Mathematica
abQ[n_] := DivisorSigma[1, n] > 2*n; s[n_] := DivisorSum[n, # &, abQ[#] &]; q[n_] := s[n] > 2*n && AllTrue[Most @ Divisors[n], ! q[#] &]; Select[Range[1, 300000, 2], q]
Comments