OFFSET
1,1
MAPLE
for n from 1 to 40 do a := prevprime((10^n-1)/9*8+2):b := convert(a, base, 10):c := true:for i from 2 to nops(b) do if((b[i] mod 2)>0) then c := false:end if:end do:while(c=false) do a := prevprime(a):b := convert(a, base, 10):c := true:for i from 2 to nops(b) do if((b[i] mod 2)>0) then c := false:end if:end do:end do:q[n] := a:end do:seq(q[k], k=1..40);
MATHEMATICA
nped[n_]:=Module[{p=NextPrime[9*10^n, -1]}, While[AnyTrue[Most[ IntegerDigits[ p]], OddQ], p=NextPrime[p, -1]]; p]; Array[nped, 20, 0] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Jun 14 2018 *)
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Amarnath Murthy, Mar 03 2002
EXTENSIONS
More terms from Sascha Kurz, Mar 26 2002
STATUS
approved