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 A216954 #24 Oct 06 2018 09:38:55 %S A216954 1,1,1,1,0,3,1,1,0,6,1,0,0,0,15,1,1,3,0,0,27,1,0,0,0,0,0,63,1,1,0,6,0, %T A216954 0,0,120,1,0,3,0,0,0,0,0,252,1,1,0,0,15,0,0,0,0,495,1,0,0,0,0,0,0,0,0, %U A216954 0,1023,1,1,3,6,0,27,0,0,0,0,0,2010,1,0,0,0,0,0,0,0,0,0,0,0,4095,1,1,0,0,0,0,63,0,0,0,0,0,0,8127 %N A216954 Triangle read by rows: A216953/2. %H A216954 B. Chaffin, J. P. Linderman, N. J. A. Sloane and Allan Wilks, <a href="http://arxiv.org/abs/1212.6102">On Curling Numbers of Integer Sequences</a>, arXiv:1212.6102 [math.CO], 2012-2013. %H A216954 B. Chaffin, J. P. Linderman, N. J. A. Sloane and Allan Wilks, <a href="https://cs.uwaterloo.ca/journals/JIS/VOL16/Sloane/sloane3.html">On Curling Numbers of Integer Sequences</a>, Journal of Integer Sequences, Vol. 16 (2013), Article 13.4.3. %e A216954 Triangle begins: %e A216954 1; %e A216954 1, 1; %e A216954 1, 0, 3; %e A216954 1, 1, 0, 6; %e A216954 1, 0, 0, 0, 15; %e A216954 1, 1, 3, 0, 0, 27; %e A216954 1, 0, 0, 0, 0, 0, 63; %e A216954 1, 1, 0, 6, 0, 0, 0, 120; %e A216954 1, 0, 3, 0, 0, 0, 0, 0, 252; %e A216954 1, 1, 0, 0, 15, 0, 0, 0, 0, 495; %e A216954 ... %t A216954 a027375[n_] := DivisorSum[n, MoebiusMu[n/#] 2^# &]; %t A216954 T[n_, k_] := If[Divisible[n, k], a027375[k]/2, 0]; %t A216954 Table[T[n, k], {n, 1, 14}, {k, 1, n}] // Flatten (* _Jean-François Alcover_, Oct 06 2018 *) %Y A216954 Cf. A216953. Main diagonal is A000740. %K A216954 nonn,tabl %O A216954 1,6 %A A216954 _N. J. A. Sloane_, Sep 25 2012