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