OFFSET
1,1
COMMENTS
The sequence is probably infinite.
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..2000
EXAMPLE
101117 has exactly four 1s.
MAPLE
isdgctm := proc(n, d) local dgs, a, i ; dgs := convert(n, base, 10) ; a := [seq(0, j=0..9)] ;
for i in dgs do a := subsop(i+1=op(i+1, a)+1, a) ; od: if convert(a, set) intersect {d} <> {} then true; else false; fi; end:
for n from 1 to 10000 do p := ithprime(n) ; if isdgctm(p, 4) then printf("%d, ", p) ; fi; od: # R. J. Mathar, Jun 21 2009
MATHEMATICA
Select[Prime[Range[186, 10000]], MemberQ[DigitCount[#], 4]&] (* Harvey P. Dale, Apr 12 2015 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Ki Punches, Jun 19 2009
EXTENSIONS
Edited and corrected by R. J. Mathar, Jun 21 2009
STATUS
approved