This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A381966 #6 Mar 14 2025 21:20:31
%S A381966 0,1,2,3,4,5,6,7,8,9,10,12,14,16,18,20,22,24,26,28,20,23,26,29,32,35,
%T A381966 40,45,50,55,30,34,38,42,48,55,62,60,70,84,40,45,50,57,66,65,78,97,86,
%U A381966 111,50,56,62,73,74,90,86,112,98,124,60,67,76,89,96,95,128,117
%N A381966 Row sums of A381965.
%H A381966 Paolo Xausa, <a href="/A381966/b381966.txt">Table of n, a(n) for n = 0..10000</a>
%F A381966 a(n) = Sum_{k = 0..A031346(n)} A381965(n,k).
%t A381966 A381966[n_] := Total[NestWhileList[Times @@ IntegerDigits[#] &, n, # >= 10 &]];
%t A381966 Array[A381966, 100, 0]
%Y A381966 Cf. A031346, A381965.
%K A381966 nonn,base,easy
%O A381966 0,3
%A A381966 _Paolo Xausa_, Mar 12 2025