OFFSET
1,2
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
EXAMPLE
39 is in the sequence since tau(39) = 4 | 16 = 39'.
MAPLE
filter:= proc(n) local F, t;
F:= ifactors(n)[2];
(n * add(t[2]/t[1], t=F)) mod mul(t[2]+1, t=F) = 0
end proc:
select(filter, [$1..1000]); # Robert Israel, May 05 2024
MATHEMATICA
q[1] = True; q[n_] := Module[{f = FactorInteger[n]}, Divisible[n * Plus @@ ((Last[#]/First[#]) & /@ f), Times @@ (1 + Last[#] & /@ f)]]; Select[Range[350], q] (* Amiram Eldar, Feb 03 2022 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Wesley Ivan Hurt, Feb 03 2022
STATUS
approved