cp's OEIS Frontend

A093098 "Power into digits": start with a(1)=2, a(2)=3; repeatedly adjoin digits of a(n-2)^a(n-1).

%I A093098 #7 Feb 15 2024 12:09:22
%S A093098 2,3,8,6,5,6,1,2,6,2,1,4,4,7,7,7,6,1,5,6,2,5,6,1,6,4,3,6,2,1,2,5,6,1,
%T A093098 6,3,8,4,8,2,3,5,4,3,8,2,3,5,4,3,1,1,7,6,4,9,6,1,1,5,6,2,5,3,6,3,2,1,
%U A093098 5,6,2,5,6,1,1,2,9,6,6,4,7,2,9,3,6,2,1,3,2,1,5,6,2,5,6,1,2,1,6,6,5,6,1,4,0
%N A093098 "Power into digits": start with a(1)=2, a(2)=3; repeatedly adjoin digits of a(n-2)^a(n-1).
%C A093098 a(490) = a(491) = 0 and so the value of a(1306) is perhaps controversial. I have used the combinatorial definition 0^0 = 1 in my PARI script below. - _Charles R Greathouse IV_, Feb 15 2024
%e A093098 a(3)=a(1)^a(2), a(4)=first digit of a(2)^a(3)=3^8=6561, a(5)=2nd digit of a(2)^a(3)=3^8=6561, a(6)=3rd digit of a(2)^a(3)=3^8=6561
%o A093098 (PARI) list(lim)=my(v=List([2,3]),i=1); while(#v<lim, my(t=digits(v[i]^v[i++])); if(#t==0, listput(v,0), for(i=1,#t, listput(~v,t[i])))); while(#v>lim, listpop(~v)); Vec(v) \\ _Charles R Greathouse IV_, Feb 15 2024
%Y A093098 Cf. A093094-A093097.
%K A093098 nonn,base,easy
%O A093098 1,1
%A A093098 _Bodo Zinser_, Mar 20 2004