OFFSET
1,1
EXAMPLE
633 belongs to this sequence because 631, 613 and 233 are all prime.
MATHEMATICA
Select[FromDigits /@ Flatten[Map[Tuples[{3, 6, 9}, #] &, Range@ 3], 1], Function[n, AllTrue[Function[k, FromDigits@ MapAt[#/3 &, k, #] & /@ Range@ Length@ k]@ IntegerDigits@ n, And[PrimeQ@ #, # != n] &]]] (* Michael De Vlieger, Jan 20 2016, Version 10 *)
CROSSREFS
KEYWORD
nonn,base,fini,full
AUTHOR
Arkadiusz Wesolowski, Jan 19 2016
STATUS
approved