login
A371058
Numbers k divisible by A075860(k).
0
2, 3, 4, 5, 7, 8, 9, 11, 13, 16, 17, 19, 21, 23, 25, 26, 27, 29, 31, 32, 33, 35, 37, 41, 43, 47, 49, 52, 53, 59, 61, 63, 64, 65, 66, 67, 71, 73, 74, 79, 81, 83, 86, 89, 91, 95, 97, 99, 101, 103, 104, 106, 107, 109, 110, 113, 121, 125, 127, 128, 131, 132, 134, 137, 138, 139
OFFSET
1,1
MAPLE
f := proc (n) option remember; if isprime(n) then n else procname(convert(numtheory:-factorset(n), `+`)) end if end proc:
g := proc (n) if `mod`(n, f(n)) = 0 then n end if end proc:
map(g, [$2 .. 100]);
MATHEMATICA
a[n_] := If[n == 1, 0, FixedPoint[Total[FactorInteger[#][[All, 1]]]&, n]]; r=140; Select[Range[2, r], Divisible[#, Part[Array[a, r], #]]&] (* James C. McMahon, Mar 10 2024 *)
CROSSREFS
Cf. A075860.
Sequence in context: A316525 A119314 A317923 * A344979 A273130 A273200
KEYWORD
nonn
AUTHOR
Rafik Khalfi, Mar 09 2024
STATUS
approved