A039567 Numbers whose base-5 representation has the same number of 0's, 2's and 4's.
1, 3, 6, 8, 16, 18, 31, 33, 41, 43, 54, 70, 81, 83, 91, 93, 102, 110, 139, 147, 156, 158, 166, 168, 179, 195, 206, 208, 216, 218, 227, 235, 259, 269, 271, 273, 279, 295, 329, 345, 351, 353, 355, 365, 389, 397, 406, 408, 416, 418, 429, 445, 456, 458, 466, 468
Offset: 1
Examples
54 is a term since 54 in base 10 is 204 in base 5.
Links
- Robert Israel, Table of n, a(n) for n = 1..10000
Programs
-
Maple
filter:= proc(n) local L,q; L:= convert(n,base,5); nops(map(numboccur,{0,2,4},L))=1 end proc: select(filter,[$1..1000]); # Robert Israel, Apr 09 2018 -
Mathematica
ok5Q[n_]:=Module[{dc5=DigitCount[n,5]},dc5[[2]]==dc5[[4]]==dc5[[5]]]; Select[Range[500],ok5Q] (* Harvey P. Dale, Mar 05 2011 *)