OFFSET
1,1
COMMENTS
LINKS
Giovanni Resta, Table of n, a(n) for n = 1..1387 (terms < 10^10)
EXAMPLE
1041714 = 2 * 3^3 * 101 * 191 -> Sum of factors is 303 -> 1041714 / 303 = 3438 exactly.
MAPLE
isA046366 := proc(n)
local sofpp ;
if isA046355(n) then
sofpp := A262049(n) ;
if modp(n, sofpp) = 0 then
true;
else
false;
end if;
else
false;
end if;
end proc:
for n from 2 to 1000 do
if isA046366(n) then
printf("%d, ", n) ;
end if;
end do: # R. J. Mathar, Sep 09 2015
MATHEMATICA
palQ[n_]:=Reverse[x=IntegerDigits[n]]==x; Select[Range[4, 10^5], !PrimeQ[#]&&And@@palQ/@Join[{y=Total[Times@@@(x=FactorInteger[#])]}, First/@x]&&IntegerQ[#/y]&](* Jayanta Basu, Jun 05 2013 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Patrick De Geest, Jun 15 1998
STATUS
approved