OFFSET
1,1
COMMENTS
Numbers divisible by at least one of 6, 8, 10, 14, 44, 52. For proof see link. - Robert Israel, Sep 02 2022
The asymptotic density of this sequence is 483/1430. - Amiram Eldar, Aug 08 2023
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
EXAMPLE
18 is in the sequence since 18 = 9+2+2+2+2+1, where each summand divides 18.
MAPLE
filter:= n-> ormap(t -> n mod t = 0, [6, 8, 10, 14, 44, 52]):
select(filter, [$1..200]); # Robert Israel, Sep 02 2022
MATHEMATICA
q[n_, k_] := AnyTrue[Tuples[Divisors[n], k], Total[#] == n &]; Select[Range[200], q[#, 6] &] (* Amiram Eldar, Aug 19 2022 *)
PROG
(PARI) isok(k) = my(d=divisors(k)); forpart(p=k, if (setintersect(d, Set(p)) == Set(p), return(1)), , [6, 6]); \\ Michel Marcus, Aug 19 2022
CROSSREFS
KEYWORD
nonn
AUTHOR
Wesley Ivan Hurt, Aug 18 2022
STATUS
approved