|
%I #28 Jul 29 2024 15:34:36
%S 0,1,2,4,5,6,7,9,10,11,12,14,20,21,22,24,25,26,27,29,30,31,32,34,35,
%T 36,37,39,45,46,47,49,50,51,52,54,55,56,57,59,60,61,62,64,70,71,72,74,
%U 100,101,102,104,105,106,107,109,110,111,112,114
%N Numbers with no 3's in base-5 expansion.
%H Nathaniel Johnston, <a href="/A023733/b023733.txt">Table of n, a(n) for n = 1..10000</a>
%H <a href="/index/Ar#5-automatic">Index entries for 5-automatic sequences</a>.
%e 14 in base 5 is 24, which contains no 3's, so 14 is in the sequence.
%e 15 in base 5 is 30, so 15 is not in the sequence.
%p seq(`if`(numboccur(3,convert(n,base,5))=0,n,NULL),n=0..127); # _Nathaniel Johnston_, Jun 27 2011
%t Select[Range[0, 124], Count[IntegerDigits[#, 5], 3] == 0 &]
%t Select[Range[0,200],DigitCount[#,5,3]==0&] (* _Harvey P. Dale_, Jul 29 2024 *)
%o (PARI) is(n)=while(n>3, if(n%5==3, return(0)); n\=5); 1 \\ _Charles R Greathouse IV_, Feb 12 2017
%o (Scala) (0 to 124).filter(Integer.toString(_, 5).indexOf("3") == -1) // _Alonso del Arte_, Feb 05 2019
%Y Cf. A020654, A023721, A023725, A023729.
%K nonn,base,easy
%O 1,3
%A _Olivier Gérard_
|
