OFFSET
1,1
LINKS
Eric Weisstein's World of Mathematics, Divisor Product
EXAMPLE
24 is in the sequence because 24 has 7 proper divisors {1,2,3,4,6,8,12} and 1*2*3*4*6*8*12 = 13824;
36 is in the sequence because 36 has 8 proper divisors {1,2,3,4,6,9,12,18} and 1*2*3*4*6*9*12*18 = 279936;
76 is in the sequence because 76 has 5 proper divisors {1,2,4,19,38} and 1*2*4*19*38 = 5776, etc.
MATHEMATICA
Select[Range[3000000], Mod[Sqrt[#1]^DivisorSigma[0, #1]/#1, 10^IntegerLength[#1]] == #1 && Sqrt[#1]^DivisorSigma[0, #1] != #1^2 & ]
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Ilya Gutkovskiy, Nov 23 2016
STATUS
approved