|
| |
|
|
A080810
|
|
a(1) = 7, a(n)= smallest n-th power obtained by inserting digits anywhere in a(n-1).
|
|
5
| | |
|
|
|
OFFSET
| 1,1
|
|
|
EXAMPLE
| 24^2=576. 26^3=17576. 196^4=1475789056. 67687^5=1420778345789277056227207.
|
|
|
MAPLE
| buffedStr := proc(n, candid) local f ; if length(n) = 0 then RETURN(true) ; fi ; f := SearchText(substring(n, 1), candid) ; if f = 0 then RETURN(false) ; else if buffedStr(substring(n, 2..-1), substring(candid, f+1..-1)) = true then RETURN(true) ; else RETURN(false) ; fi ; fi ; end: A080810 := proc(preva, n) local i, tst ; i := 1 ; while true do tst := i^n ; if buffedStr(convert(preva, string), convert(tst, string)) = true then RETURN(tst) ; fi ; i := i+1 ; od: end: an :=7 ; for n from 2 to 15 do an := A080810(an, n) ; end ; - R. J. Mathar (mathar(AT)strw.leidenuniv.nl), Sep 20 2006
|
|
|
CROSSREFS
| Cf. A080804, A080805, A080806, A080807, A080808, A080809, A080811, A080812.
Sequence in context: A093169 A159029 A068616 * A153405 A203680 A087772
Adjacent sequences: A080807 A080808 A080809 * A080811 A080812 A080813
|
|
|
KEYWORD
| base,more,nonn
|
|
|
AUTHOR
| Amarnath Murthy (amarnath_murthy(AT)yahoo.com), Mar 22 2003
|
|
|
EXTENSIONS
| Corrected and extended by R. J. Mathar (mathar(AT)strw.leidenuniv.nl), Sep 20 2006
One more term. Sean A. Irvine (sairvin(AT)xtra.co.nz), Sep 01 2009
|
| |
|
|
