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 A373170 #14 Feb 12 2025 03:13:30 %S A373170 1,3,9,22,45,81,43,24,288,118,138,585,184,918,288,232,294,351,559, %T A373170 2586,1179,3586,117,72,3913,2949,5949,1585,7239,8811,3595,3789,3537, %U A373170 5758,1968,18,6454,4152,4374,1687,549,7794,3922,8313,828,2674,4251,2646,5548,3636,3879,799 %N A373170 Main diagonal of A373169. %C A373170 a(n) is the zeroless analog of the (n-1)-th n-gonal number. %H A373170 Paolo Xausa, <a href="/A373170/b373170.txt">Table of n, a(n) for n = 2..10000</a> %F A373170 a(n) = A373169(n,n-1). %t A373170 noz[n_] := FromDigits[DeleteCases[IntegerDigits[n], 0]]; %t A373170 A373170[n_] := Fold[noz[#2*(n-2) + 1 + #] &, 1, Range[n-2]]; %t A373170 Array[A373170, 100, 2] %Y A373170 Cf. A064808, A004719, A373169. %K A373170 nonn,base,easy %O A373170 2,2 %A A373170 _Paolo Xausa_, May 28 2024