OFFSET
1,2
COMMENTS
Corresponding r's: any, 4, 3, 2, 6, 2, 2, 2, 2, 2, 3, 2, 3, 3, 4, 3.
LINKS
René-Louis Clerc, Pleasant transformations and a new class of narcissistic perfect numbers, hal-03619147, 2022-2023.
René-Louis Clerc, The Perfect R-Narcissistic Numbers, 2023.
René-Louis Clerc, Perfect r-narcissistic numbers in any base, hal-04376934, 2024.
René-Louis Clerc, Nombres S+P, maxSP, minSP et |P-S|, hal-04507547 [math.nt], 2024. (In French)
EXAMPLE
180 with r=6 satisfies: 180^6 = 34012224000000, 3^3 + 4^3 + 1 + 2^3 + 2^3 + 2^3 + 4^3 = 180.
PROG
(PARI) SomP(n, p)={resu=0; for(i=1, #digits(n), resu+=(digits(n)[i])^p); resu}
Ppdi(k, r)={for(n=10^(k-1), 10^k, if(SomP(n^r, k)==n, print1(n, "; ")))}
CROSSREFS
KEYWORD
nonn,base,fini,more
AUTHOR
René-Louis Clerc, Jul 29 2023
STATUS
approved