OFFSET
1,1
LINKS
Enrique Pérez Herrero, Table of n, a(n) for n = 1..100000
MATHEMATICA
fQ[n_] := Block[{idn = IntegerDigits[n, 4]}, Count[idn, 0] == Count[idn, 2] == 2]; Select[Range@1100, fQ] (* Robert G. Wilson v, Dec 11 2017 *)
PROG
(Python)
import numpy as np
for a in range(10000):
x = np.base_repr(a, base=4)
if(x.count("0") == 2 and x.count("2") == 2):
print(a)
# Enrique Pérez Herrero, Dec 06 2017
CROSSREFS
KEYWORD
nonn,base
AUTHOR
STATUS
approved