OFFSET
1,2
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
EXAMPLE
54 is a term since 54 in base 10 is 204 in base 5.
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 *)
CROSSREFS
KEYWORD
nonn,base,easy
AUTHOR
STATUS
approved