|
| |
|
|
A125724
|
|
If "sumdigit" denotes the sum of the digits of a number then these are the numbers n such that n=sumdigit(sumdigit(n)^sumdigit(n)).
|
|
3
| | |
|
|
|
OFFSET
| 0,2
|
|
|
EXAMPLE
| sumdigit(13)=4; 4^4 = 256; sumdigit(256)=13
|
|
|
MAPLE
| P:=proc(n) local i, j, k, w; for i from 1 by 1 to n do w:=0; k:=i; while k>0 do w:=w+k-trunc(k/10)*10; k:=trunc(k/10); od; k:=w^w; w:=0; while k>0 do w:=w+k-trunc(k/10)*10; k:=trunc(k/10); od; if (i=w) then print(i, w); fi; od; end: P(100);
|
|
|
CROSSREFS
| Cf. A125526.
Sequence in context: A195558 A026058 A032697 * A163551 A005696 A147145
Adjacent sequences: A125721 A125722 A125723 * A125725 A125726 A125727
|
|
|
KEYWORD
| easy,fini,nonn,base
|
|
|
AUTHOR
| Paolo P. Lava & Giorgio Balzarotti (paoloplava(AT)gmail.com), Feb 02 2007
|
| |
|
|
