login
A072327
Numbers k such that k^2 is a term of A072510.
2
1, 8, 12, 27, 32, 45, 63, 125, 175, 225, 243, 275, 325, 343, 425, 475, 539, 560, 575, 637, 720, 833, 931, 1127, 1225, 1331, 1421, 1519, 1573, 1813, 2009, 2057, 2107, 2197, 2240, 2299, 2303, 2783, 2816, 2873, 3025, 3125, 3211, 3328, 3509, 3751, 3887, 4352, 4477
OFFSET
1,2
COMMENTS
Numbers of the form p^(m*(4m-1)) and p^(m*(4m+1)) are terms of the sequence, where p is prime. p^2*q are terms of the sequence, where p and q are prime and p^2 > q > p.
Complement of A072497 in the positive integers. - Robert Israel, Dec 10 2024
LINKS
MAPLE
filter:= proc(n) local s, F, d, p;
s:= n^2;
F:= sort(convert(numtheory:-divisors(s), list));
p:= 1:
for d in F do
p:= p*d;
if p > s then return false
elif p = s then return true
fi
od;
end proc:
select(filter, [$1..5000]); # Robert Israel, Dec 10 2024
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Baltic, Aug 04 2002
EXTENSIONS
More terms from Sean A. Irvine, Sep 23 2024
STATUS
approved