OFFSET
1,1
LINKS
René-Louis Clerc, Nombres S+P, maxSP, minSP et |P-S|, pp. 1-15, 2024.
EXAMPLE
1467^2 = 2152089, (2+1+5+2+8+9) + (2*1*5*2*8*9) = 27 + 1440 = 1467.
PROG
(PARI) SplusP(k, r) = my(d=select(x->(x>0), digits(k^r))); vecsum(d) + vecprod(d) == k;
resuSplusP(p, r)=for(k=1, 10^p, if(SplusP(k, r) ==1, print1(k, ", ")))
CROSSREFS
KEYWORD
nonn,base,more
AUTHOR
René-Louis Clerc, Mar 19 2024
EXTENSIONS
a(9)-a(12) from Chai Wah Wu, Apr 20 2024
STATUS
approved