OFFSET
1,1
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
MAPLE
filter:= proc(n) local F;
F:= ifactors(n)[2];
nops(F)=4 and max(map(t->t[2], F))=1
end proc:
makepali:= proc(n, d) local L;
L:= convert(n, base, 10);
if d::even then 10^(d/2)*n + add(L[i]*10^(d/2-i), i=1..d/2)
else 10^((d-1)/2)*n + add(L[i]*10^((d+1)/2-i), i=2..(d+1)/2)
fi
end proc:
select(filter, [seq(seq(makepali(x, d),
x=10^ceil(d/2-1)..10^ceil(d/2)-1), d=1..6)]); # Robert Israel, Jun 05 2018
MATHEMATICA
Select[Range[60000], PalindromeQ[#]&&PrimeNu[#]==Total[FactorInteger[#][[All, 2]]] == 4&] (* Harvey P. Dale, Apr 07 2022 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Patrick De Geest, Jun 15 1998
STATUS
approved