OFFSET
1,8
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
EXAMPLE
a(8) = 2 comes from k = A036844(8) = 16 = 2^4. The sum of prime factors is 2 + 2 + 2 + 2 = 8, so k/(sum of prime factors of k) = 2.
MAPLE
Res:= NULL: count:= 0:
for n from 2 while count < 200 do
F:= ifactors(n)[2];
r:= n /add(t[1]*t[2], t=F);
if r::integer then count:= count+1; Res:= Res, r fi
od:
Res; # Robert Israel, Jul 29 2019
MATHEMATICA
Select[Array[#/Total@ Flatten[ConstantArray[#1, #2] & @@ # & /@ FactorInteger[#]] &, 450, 2], IntegerQ] (* Michael De Vlieger, Apr 21 2019 *)
PROG
(Python)
maxNum = 455
ratios = []
for i in range(2, maxNum):
sumFactors = A001414(i)
if i % sumFactors == 0:
ratio = i // sumFactors
ratios.append(ratio)
print(ratios) # ratios is an array that contains the sequence
CROSSREFS
KEYWORD
nonn
AUTHOR
Sven Kunze, Apr 20 2019
STATUS
approved