OFFSET
1,1
LINKS
Chris Caldwell, The First 1000 primes.
MAPLE
a:=proc(n) local nn: nn:=convert(convert(n, base, 10), set): if isprime(n)=true and 0 < nops(`intersect`({2, 3}, nn)) then n else end if end proc: seq(a(n), n= 1..400); # Emeric Deutsch, Mar 31 2008
MATHEMATICA
fQ[n_] := Block[{id = IntegerDigits@ n}, MemberQ[id, 2] || MemberQ[id, 3]]; Select[ Prime@ Range@ 84, fQ@ # &] (* Robert G. Wilson v, Apr 19 2008 *)
CROSSREFS
KEYWORD
nonn,base,easy
AUTHOR
Parthasarathy Nambi, Mar 17 2008
EXTENSIONS
Corrected and extended by Emeric Deutsch, Mar 31 2008
STATUS
approved