A266279 Nonnegative integers where all occurring digits occur with equal frequency.

0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67

Offset: 1

Author

Felix Fröhlich, Dec 26 2015

Keywords

• nonn
• base
• easy

Comments

The set of terms of this sequence is a superset of each of the sets of terms of A050278 and A082810.

Except for i = 1, A261315(i) gives the number of existing n such that A055642(a(n)) = i.

Examples

			1122 is a term of the sequence, since all occurring digits occur twice.
		

Links

• Felix Fröhlich, Table of n, a(n) for n = 1..10000

Crossrefs

Cf. A050278, A082810, A261315.

Programs

Mathematica

Select[Range[0, 67], Length@ Union[DigitCount[#] /. 0 -> Nothing] == 1 &] (* Michael De Vlieger, Jan 06 2016 *)

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)