login
The OEIS is supported by the many generous donors to the OEIS Foundation.

 

Logo
Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A175423 Sequence of numbers after 4th step of iteration defined in A175419. 8

%I #17 Feb 25 2024 10:21:54

%S 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,

%T 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,

%U 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,1

%N Sequence of numbers after 4th step of iteration defined in A175419.

%e 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

%p 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:

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

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

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

%p seq(A175423(n),n=0..100) ; # _R. J. Mathar_, May 12 2010

%t Unprotect[Power]; Power[0, 0] = 1; Protect[Power]; A175420[0]=0; A175420[n_]:=If[(len=IntegerLength[n])==1, n, Last[list=IntegerDigits[n]]^Product[Part[Drop[list, -1], i], {i, len-1}]]; a[n_]:=Nest[A175420[#]&, n, 4]; Array[a, 101, 0]

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

%K nonn,base

%O 0,3

%A _Jaroslav Krizek_, May 09 2010

%E More terms from _R. J. Mathar_, May 12 2010

%E a(100) corrected by _Stefano Spezia_, Feb 25 2024

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

License Agreements, Terms of Use, Privacy Policy. .

Last modified March 29 09:44 EDT 2024. Contains 371268 sequences. (Running on oeis4.)