|
|
A067041
|
|
a(n) = n^(product of digits of n).
|
|
2
|
|
|
1, 1, 4, 27, 256, 3125, 46656, 823543, 16777216, 387420489, 1, 11, 144, 2197, 38416, 759375, 16777216, 410338673, 11019960576, 322687697779, 1, 441, 234256, 148035889, 110075314176, 95367431640625, 95428956661682176
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,3
|
|
LINKS
|
|
|
EXAMPLE
|
a(12) = 12^(1*2) = 144.
|
|
MATHEMATICA
|
Join[{1}, #^Times@@IntegerDigits[#]&/@Range[50]] (* Harvey P. Dale, Mar 13 2011 *)
|
|
PROG
|
(PARI) ProdD(x)= { local(p=1); while (x>9 && p>0, p*=x%10; x\=10); return(p*x) } { for (n=0, 200, write("b067041.txt", n, " ", n^ProdD(n)) ) } \\ Harry J. Smith, Apr 30 2010
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,base,easy
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|