OFFSET
1,2
MAPLE
From R. J. Mathar, May 01 2010: (Start)
noPrimDgs := proc(n) a := 0 ; for d in convert(n, base, 10) do if d in {2, 3, 5, 7} then a := a+1 ; end if; end do; a ; end proc:
noEvDgs := proc(n) a := 0 ; for d in convert(n, base, 10) do if type(d , 'even') then a := a+1 ; end if; end do; a ; end proc:
for n from 1 to 300 do p := ithprime(n) ; if noPrimDgs(p) = noEvDgs(p) then printf("%d, ", n) ; end if; end do: (End)
CROSSREFS
KEYWORD
nonn,base,less
AUTHOR
Juri-Stepan Gerasimov, Jan 15 2009
EXTENSIONS
Corrected(8, 23 inserted, 26 replaced by 27, 29 by 28, 97 inserted ...) by R. J. Mathar, May 01 2010
STATUS
approved