cp's OEIS Frontend

A093097 Start with a(1) = 3, a(2) = 7; then apply the rule of A093094.

%I A093097 #14 Aug 18 2025 11:44:18
%S A093097 3,7,2,1,1,4,2,1,4,8,2,4,3,2,1,6,8,1,2,6,2,6,4,8,8,2,1,2,1,2,1,2,2,4,
%T A093097 3,2,6,4,1,6,2,2,2,2,2,2,4,8,1,2,6,1,2,2,4,4,6,1,2,4,4,4,4,4,8,3,2,8,
%U A093097 2,1,2,6,2,4,8,1,6,2,4,6,2,8,1,6,1,6,1,6,1,6,3,2,2,4,6,1,6,1,6,2,2,1,2,1,2
%N A093097 Start with a(1) = 3, a(2) = 7; then apply the rule of A093094.
%H A093097 Paolo Xausa, <a href="/A093097/b093097.txt">Table of n, a(n) for n = 1..10000</a>
%e A093097 a(3)=first digit of (a(1)*a(2)), a(4)=2nd digit of (a(1)*a(2)), a(5)=first digit of (a(2)*a(3)), a(6)=2nd digit of (a(2)*a(3))
%t A093097 Fold[Join[#, IntegerDigits[Times @@ #[[#2;; #2+1]]]] &, {3, 7}, Range[100]] (* _Paolo Xausa_, Aug 18 2025 *)
%o A093097 (Python)
%o A093097 from itertools import islice
%o A093097 from collections import deque
%o A093097 def agen(): # generator of terms
%o A093097     a = deque([3, 7])
%o A093097     while True:
%o A093097         a.extend(list(map(int, str(a[0]*a[1]))))
%o A093097         yield a.popleft()
%o A093097 print(list(islice(agen(), 105))) # _Michael S. Branicky_, Aug 18 2025
%Y A093097 Cf. A045777, A060310, A093094, A093095, A093096, A096381.
%K A093097 nonn,base
%O A093097 1,1
%A A093097 _Bodo Zinser_, Mar 20 2004