OFFSET
1,1
LINKS
Giovanni Resta, Table of n, a(n) for n = 1..147 (terms < 2*10^13)
EXAMPLE
429 is a term as p = 4*2*9 = 72 and 429^2 + 72^2 = 189225 = 435^2.
16758 is a term as p = 1*6*7*5*8 = 1680 and 16758^2 + 1680^2 = 283652964 = 16842^2.
PROG
(PARI) isok(m) = my(p=vecprod(digits(m))); p && issquare(m^2 + p^2); \\ Michel Marcus, May 06 2020
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Scott R. Shannon, May 06 2020
STATUS
approved