cp's OEIS Frontend

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.

A104612 Write the natural numbers in base 8 in a triangle with k digits in the k-th row, as shown below. Sequence gives the leading diagonal.

This page as a plain text file.
%I A104612 #4 Nov 06 2022 17:30:44
%S A104612 1,3,6,1,3,6,2,2,2,7,4,5,1,0,1,0,1,1,2,1,1,5,1,1,0,2,2,3,2,2,7,3,3,3,
%T A104612 3,3,0,4,4,5,4,5,2,5,5,0,6,6,6,7,7,4,7,0,1,1,0,5,1,3,2,1,1,1,2,2,1,3,
%U A104612 5,3,1,1,4,7,3,5,0,6,1,1,7,4,7,1,3,0,2,2,1,1,5,7,6,3,2,2,4,6,4,0,1,6,2,2,0
%N A104612 Write the natural numbers in base 8 in a triangle with k digits in the k-th row, as shown below. Sequence gives the leading diagonal.
%C A104612 1
%C A104612 23
%C A104612 456
%C A104612 7101
%C A104612 11213
%C A104612 141516...
%t A104612 t = Flatten[ IntegerDigits[ Range[1750], 8]]; t[[Table[n(n + 1)/2, {n, 105}]]]
%t A104612 TakeList[Flatten[IntegerDigits[Range[3000],8]],Range[150]][[All,-1]] (* _Harvey P. Dale_, Nov 06 2022 *)
%Y A104612 Cf. A104606, A104607, A104608, A104609, A104610, A104611, A104613, A091425, A104614, A104615, A104616, A104617, A104618, A104619, A104620.
%K A104612 base,nonn
%O A104612 1,2
%A A104612 _Robert G. Wilson v_, Mar 16 2005