cp's OEIS Frontend

A033039 Numbers all of whose base 14 digits are odd.

%I A033039 #10 Nov 28 2024 14:08:52
%S A033039 1,3,5,7,9,11,13,15,17,19,21,23,25,27,43,45,47,49,51,53,55,71,73,75,
%T A033039 77,79,81,83,99,101,103,105,107,109,111,127,129,131,133,135,137,139,
%U A033039 155,157,159,161,163,165,167,183,185,187,189,191
%N A033039 Numbers all of whose base 14 digits are odd.
%H A033039 Robert Israel, <a href="/A033039/b033039.txt">Table of n, a(n) for n = 1..10000</a>
%p A033039 f:= proc(x) local r;
%p A033039   r:= convert(x,base,7);
%p A033039   add((1+2*r[i])*14^(i-1),i=0..nops(r))
%p A033039 end proc:
%p A033039 seq(seq(f(x)-3*14^d, x=7^d..2*7^d-1),d=1..3); # _Robert Israel_, Mar 30 2018
%t A033039 Select[Range[200],AllTrue[IntegerDigits[#,14],OddQ]&] (* _Harvey P. Dale_, Nov 28 2024 *)
%K A033039 nonn,base
%O A033039 1,2
%A A033039 _Clark Kimberling_