OFFSET
1,1
COMMENTS
Sequence is probably infinite.
EXAMPLE
2333, 3313, 3833 all repeat some digit 3 three times.
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 2000 do p := ithprime(n) ; if isdgctm(p, 3) then printf("%d, ", p) ; fi; od: # R. J. Mathar, Jun 21 2009
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Ki Punches, Jun 20 2009
EXTENSIONS
Edited and corrected by R. J. Mathar, Jun 21 2009
STATUS
approved