OFFSET
1,1
LINKS
Alois P. Heinz, Table of n, a(n) for n = 1..10000
EXAMPLE
12 = p_1^2 * p_2^1 is present, as (2,1) is not a palindrome.
MAPLE
q:= n-> (l-> is(n<>mul(l[i, 1]^l[-i, 2], i=1..nops(l))))(sort(ifactors(n)[2])):
select(q, [$1..200])[]; # Alois P. Heinz, Feb 04 2022
PROG
(Scheme, with Antti Karttunen's IntSeq-library)
CROSSREFS
KEYWORD
nonn
AUTHOR
Antti Karttunen, May 29 2014
STATUS
approved