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.

A033035 Numbers such that all base 9 digits are odd.

This page as a plain text file.
%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_