OFFSET
1,2
COMMENTS
All terms are odd.
LINKS
MATHEMATICA
With[{b = MixedRadix[Reverse@ Prime@ Range@ 20]}, Select[Array[Sqrt@ Function[k, Times @@ Power @@@ # &@ Transpose@ {Prime@ Range@ Length@ k, Reverse@ k}]@ IntegerDigits[#, b] &, 10^3, 0], IntegerQ]] (* Michael De Vlieger, Oct 30 2019 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Antti Karttunen, Oct 30 2019
STATUS
approved