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 A033035 #16 Jun 13 2020 17:20:57 %S A033035 1,3,5,7,10,12,14,16,28,30,32,34,46,48,50,52,64,66,68,70,91,93,95,97, %T A033035 109,111,113,115,127,129,131,133,145,147,149,151,253,255,257,259,271, %U A033035 273,275,277,289,291,293,295,307,309,311,313,415 %N A033035 Numbers such that all base 9 digits are odd. %H A033035 Robert Israel, <a href="/A033035/b033035.txt">Table of n, a(n) for n = 1..10000</a> %F A033035 a(4n+j) = 9*a(n)+2*j-1 for j=1..4. - _Robert Israel_, Jan 23 2019 %p A033035 f:= proc(n) option remember; local m; %p A033035 m:= floor((n-1)/4); %p A033035 9*procname(m) + 2*n - 8*m - 1 %p A033035 end proc: %p A033035 f(0):= 0: %p A033035 map(f, [$1..100]); # _Robert Israel_, Jan 23 2019 %t A033035 Select[Range[500],AllTrue[IntegerDigits[#,9],OddQ]&] (* The program uses the AllTrue function from Mathematica version 10 *) (* _Harvey P. Dale_, Oct 14 2015 *) %t A033035 Flatten[Table[FromDigits[#,9]&/@Tuples[Range[1,7,2],n],{n,3}]] (* _Harvey P. Dale_, Jun 13 2020 *) %Y A033035 Cf. A007095 (numbers in base 9). %K A033035 nonn,base %O A033035 1,2 %A A033035 _Clark Kimberling_