OFFSET
1,1
COMMENTS
A070327(n) = n^a(n) for n > 1. - Reinhard Zumkeller, Sep 29 2011
The largest of the first 10000 terms is a(1955) = 119589011. - Giovanni Resta, May 27 2016
LINKS
Giovanni Resta, Table of n, a(n) for n = 1..10000 (first 275 terms from Reinhard Zumkeller)
EXAMPLE
2^8 = 256 begins with 2, and 2^k does not begin with 2 for any smaller integer k > 1, so a(2) = 8.
MATHEMATICA
f[n_]:=Module[{i=2}, While[Take[IntegerDigits[n^i], IntegerLength[n]] != IntegerDigits[n], i++]; i]; Array[f, 70] (* Harvey P. Dale, Oct 04 2011 *)
PROG
(Haskell)
import Data.List (isPrefixOf)
a051248 n = 2 + length
(takeWhile (not . (show n `isPrefixOf`) . show) $ iterate (* n) (n^2))
-- Reinhard Zumkeller, Sep 29 2011
CROSSREFS
KEYWORD
nonn,base,nice
AUTHOR
EXTENSIONS
More terms from Jud McCranie
STATUS
approved