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 A378308 #13 Feb 19 2025 12:20:35
%S A378308 1,2,1,4,2,1,5,5,2,1,7,7,7,2,1,8,13,13,7,2,1,13,14,14,13,13,2,1,14,22,
%T A378308 22,14,22,13,2,1,16,23,23,22,23,22,13,2,1,17,25,41,23,43,23,22,13,2,1,
%U A378308 22,26,43,43,121,43,23,22,13,2,1,23,41,121,121,122,121,43,23,23,13,2,1,25,43,122
%N A378308 Array read by antidiagonals: For k >= 3, row k-2 consists of the numbers with no digits 0 in bases 3 to k.
%C A378308 Row k-2 consists of 1, 2 and numbers x with A270027(x) > k.
%H A378308 Robert Israel, <a href="/A378308/b378308.txt">Table of n, a(n) for n = 1..378</a> (first 27 antidiagonals)
%e A378308 Array starts
%e A378308 1, 2, 4, 5, 7, 8, 13, 14, 16, 17, 22, 23, ...
%e A378308 1, 2, 5, 7, 13, 14, 22, 23, 25, 26, 41, 43, ...
%e A378308 1, 2, 7, 13, 14, 22, 23, 41, 43, 121, 122, 157, ...
%e A378308 1, 2, 7, 13, 14, 22, 23, 43, 121, 122, 157, 158, ...
%e A378308 1, 2, 13, 22, 23, 43, 121, 122, 157, 158, 214, 607, ...
%e A378308 1, 2, 13, 22, 23, 43, 121, 122, 157, 158, 214, 607, ...
%e A378308 1, 2, 13, 22, 23, 43, 121, 122, 157, 158, 214, 607, ...
%e A378308 1, 2, 13, 22, 23, 43, 121, 122, 157, 158, 214, 619, ...
%e A378308 1, 2, 13, 23, 43, 157, 158, 214, 619, 5471, 5557, 5561, ...
%e A378308 1, 2, 13, 23, 43, 157, 158, 214, 619, 5471, 5557, 5561, ...
%e A378308 1, 2, 23, 43, 157, 158, 214, 619, 5471, 5557, 5561, 5791, ...
%e A378308 1, 2, 23, 43, 157, 158, 214, 619, 5471, 5791, 5821, 5822, ...
%e A378308 1, 2, 23, 43, 157, 158, 214, 619, 5471, 5791, 5821, 5822, ...
%p A378308 g:= proc(x,d) local L,i;
%p A378308 L:= convert(2^d+x,base,2);
%p A378308 add((L[i]+1)*3^(i-1),i=1..d)
%p A378308 end proc:
%p A378308 T3:= NULL:
%p A378308 for d from 1 to 14 do T3:= T3, seq(g(x,d),x=0..2^d-1); od:
%p A378308 T[3]:= [T3]:
%p A378308 for b from 4 to 14 do T[b]:= remove(t -> member(0, convert(t,base,b)),T[b-1]); if nops(T[b]) = 0 then printf("b=%d\n",b); break fi; od:
%p A378308 for b from 3 to 14 do T[b][1..14] od;
%Y A378308 Cf. A270027.
%K A378308 nonn,tabl,base
%O A378308 1,2
%A A378308 _Robert Israel_, Nov 22 2024