OFFSET
1,2
LINKS
Antti Karttunen, Table of n, a(n) for n = 1..20000
MATHEMATICA
Select[Range[180],
Divisible[If[#1 < 2, 0, #1 Total[#2/#1 & @@@ #2]],
Total[Times @@@ #2]] & @@
{#, FactorInteger[#]} &] (* Michael De Vlieger, Jun 08 2024 *)
PROG
(PARI) isA373482 = A373481;
CROSSREFS
After the initial 1, positions of 0's in A373480.
KEYWORD
nonn
AUTHOR
Antti Karttunen, Jun 08 2024
STATUS
approved