OFFSET
1,3
COMMENTS
LINKS
Felix Fröhlich, Table of n, a(n) for n = 1..10000
EXAMPLE
1122 is a term of the sequence, since all occurring digits occur twice.
MATHEMATICA
Select[Range[0, 67], Length@ Union[DigitCount[#] /. 0 -> Nothing] == 1 &] (* Michael De Vlieger, Jan 06 2016 *)
PROG
(PARI) digitcount(n) = my(d=digits(n), v=vector(10)); for(x=0, 9, for(k=1, #d, if(d[k]==x, v[x+1]++))); v
is(n) = my(c=digitcount(n), k=0); for(i=1, #c, if(k==0 && c[i]!=0, k=c[i]); if(k!=0 && c[i]!=0, if(k!=c[i], return(0)))); return(1)
CROSSREFS
KEYWORD
nonn,base,easy
AUTHOR
Felix Fröhlich, Dec 26 2015
STATUS
approved