OFFSET
1,1
COMMENTS
If k is in this sequence, then all multiples of k are in A271468.
LINKS
Peter Kagey, Table of n, a(n) for n = 1..10000
EXAMPLE
MATHEMATICA
nn = 240; s = {1}; Do[AppendTo[s, Total@ Select[Range[n - 1], Divisible[n, s[[#]]] &]], {n, 2, nn}]; t = Table[s[[3 n]]/3, {n, nn/3}];
Select[Rest@ t, NoneTrue[Most@ Rest@ Divisors@ #, MemberQ[t, #] &] &] (* Michael De Vlieger, Apr 08 2016 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Peter Kagey, Apr 08 2016
STATUS
approved