A371058 - OEIS

A371058

Numbers k divisible by A075860(k).

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

(list; graph; refs; listen; history; text; internal format)

OFFSET

1,1

LINKS

Table of n, a(n) for n=1..66.

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

Adjacent sequences: A371055 A371056 A371057 * A371059 A371060 A371061

KEYWORD

nonn

AUTHOR

Rafik Khalfi, Mar 09 2024

STATUS

approved