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 A383180 #8 May 14 2025 01:24:17
%S A383180 1,2,2,5,2,6,5,18,2,6,5,19,5,20,16,68,2,7,6,22,5,21,18,77,5,22,17,79,
%T A383180 16,74,60,283,2,7,6,23,5,23,18,80,5,22,18,82,16,78,62,295,5,24,19,87,
%U A383180 16,82,64,315,15,80,62,316,55,290,226,1161
%N A383180 Irregular table T(n,k) = A010846(A019565(2^n + k)).
%H A383180 Michael De Vlieger, <a href="/A383180/b383180.txt">Table of n, a(n) for n = 0..16384</a> (rows n = 0..14, flattened)
%H A383180 Michael De Vlieger, <a href="/A383180/a383180.png">Log log scatterplot of a(n)</a>, n = 0..2^14.
%H A383180 Michael De Vlieger, <a href="/A383180/a383180_1.png">Fan style binary tree</a> showing a(n) for n = 0..14, with a color function showing smaller numbers in reds and oranges, larger numbers in blues and magentas.
%F A383180 T(0,0) = 1.
%F A383180 T(n,0) = 2.
%F A383180 T(n,2^(n-1)-1) = A363061(n).
%e A383180 Triangle begins:
%e A383180 0: 1;
%e A383180 1: 2;
%e A383180 2: 2, 5;
%e A383180 3: 2, 6, 5, 18;
%e A383180 4: 2, 6, 5, 19, 5, 20, 16, 68;
%e A383180 5: 2, 7, 6, 22, 5, 21, 18, 77, 5, 22, 17, 79, 16, 74, 60, 283;
%e A383180 ...
%t A383180 (* Load the "theta" program at the Mathematica link in A369609, then: *)
%t A383180 f[x_] := Times @@ Prime@ Position[Reverse@ IntegerDigits[x, 2], 1][[All, 1]]; Table[theta[f[2^n + k] ], {n, 0, 7}, {k, 0, 2^n - 1}]
%Y A383180 Cf. A005117, A010846, A019565, A363061.
%K A383180 nonn,tabf
%O A383180 0,2
%A A383180 _Michael De Vlieger_, May 09 2025