OFFSET
1,1
COMMENTS
Terms from Robert G. Wilson v.
MATHEMATICA
a = {}; Do[k = 1; While[First[IntegerDigits[k^n]] != 4, k++ ]; a = Append[a, k^n], {n, 1, 25}]; a (* Robert G. Wilson v *)
CROSSREFS
KEYWORD
base,easy,nonn
AUTHOR
Amarnath Murthy, Feb 05 2002
EXTENSIONS
Moved Mathematica program to proper field -- Harvey P. Dale, Mar 31 2012
STATUS
approved