login
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
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
Sequence in context: A045512 A055207 A214877 * A070691 A070834 A045503
KEYWORD
nonn,base,easy
AUTHOR
Amarnath Murthy, Dec 29 2001
EXTENSIONS
More terms from Jason Earls, Jan 13 2002
Offset changed from 1 to 0 by Harry J. Smith, Apr 30 2010
STATUS
approved