login
This site is supported by donations to The OEIS Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A175423 Sequence of resulting numbers after 4th step of iteration defined in A175419. 6
0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 0, 1, 4, 9, 6, 25, 216, 1, 1, 1, 0, 1, 8, 1, 1, 25, 36, 1, 8, 1, 0, 1, 6, 1, 1, 1, 1, 1, 1, 1, 0, 1, 8, 1, 1, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 1, 8, 1, 1, 1, 1, 1, 1, 1, 0 (list; graph; refs; listen; history; text; internal format)
OFFSET

0,3

LINKS

Table of n, a(n) for n=0..100.

EXAMPLE

For n = 33: a(33) = 1 because for the number 33 there are 4 steps of defined iteration: {3^3 = 27}, {7^2 = 49}, {9^4 = 6561}, {((1^6)^5)^6 = 1} and the 4th step of iteration ends with 1. - Jaroslav Krizek, May 09 2010

MAPLE

A175420 := proc(n) option remember; local dgs, a, i ; if n = 0 then return 0 ; end if; dgs := convert(n, base, 10) ; if op(1, dgs)= 0 then return 0 ; end if; for i from 1 to nops(dgs) do if op(-i, dgs) = 0 then dgs := [op(-i..nops(dgs), dgs)] ; dgs := subsop(1=1, dgs) ; break ; end if; end do: a := op(1, dgs) ; for i from 2 to nops(dgs) do a := a^ dgs[i] ; end do: a ; end proc:

A175421 := proc(n) A175420(A175420(n)) ; end proc:

A175422 := proc(n) A175420(A175421(n)) ; end proc:

A175423 := proc(n) A175420(A175422(n)) ; end proc:

seq(A175423(n), n=0..100) ; # R. J. Mathar, May 12 2010

CROSSREFS

Cf. A175419, A175420, A175421, A175422, A175424, A175425, A175426, A175427.

Sequence in context: A179636 A175419 A175422 * A175421 A175420 A062078

Adjacent sequences:  A175420 A175421 A175422 * A175424 A175425 A175426

KEYWORD

nonn

AUTHOR

Jaroslav Krizek, May 09 2010

EXTENSIONS

More terms from R. J. Mathar, May 12 2010

STATUS

approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified June 25 14:43 EDT 2019. Contains 324352 sequences. (Running on oeis4.)