OFFSET
1,1
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..1000
EXAMPLE
3 is the smallest digit of 37 and it appears once; 3+1 is an even composite so 37 appears in this sequence.
MAPLE
frequdig := proc(n, dig) local f, d ; f := 0 ; for d in convert(n, base, 10) do if d = dig then f :=f+1; end if; end do; f ; end proc:
A054054 := proc(n) min(op(convert(n, base, 10)) ) ; end proc:
for n from 1 to 500 do p := ithprime(n) ; sdg := A054054(p) ; a := sdg +frequdig(p, sdg) ; if not isprime(a) and type(a, 'even') then printf("%d, ", p ) ; end if; end do: # R. J. Mathar, May 05 2010
MATHEMATICA
nsdQ[n_]:=Module[{sd=Min[IntegerDigits[n]], t}, t=sd+DigitCount[n, 10, sd]; t>2&&EvenQ[t]]; Select[Prime[Range[200]], nsdQ] (* Harvey P. Dale, Oct 17 2013 *)
CROSSREFS
KEYWORD
nonn,base,less
AUTHOR
Juri-Stepan Gerasimov, Jan 11 2009
EXTENSIONS
Corrected (83, 443, 463 inserted) by R. J. Mathar, May 05 2010
STATUS
approved