OFFSET
1,1
COMMENTS
LINKS
Giovanni Resta, Table of n, a(n) for n = 1..200
Giovanni Resta, Table of a(n), prime(a(n)) for n = 1..200
EXAMPLE
352 is in the sequence since 352 and prime(352) = 2377 use only prime digits (2, 3, 5, 7). For more examples see Links.
MATHEMATICA
pQ[n_] := Union[IntegerDigits@n, {2, 3, 5, 7}] == {2, 3, 5, 7}; Select[Range[10^5], pQ@# && pQ@Prime@# &] (* Giovanni Resta, Mar 11 2013 *)
Select[Flatten[Table[FromDigits/@Tuples[{2, 3, 5, 7}, n], {n, 8}]], AllTrue[ IntegerDigits[Prime[#]], PrimeQ]&] (* The program uses the AllTrue function from Mathematica version 10 *) (* Harvey P. Dale, Jun 24 2015 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Juri-Stepan Gerasimov, Jan 20 2009
EXTENSIONS
Corrected (332, 352, 375 inserted) by R. J. Mathar, May 05 2010
a(11)-a(34) from Giovanni Resta, Mar 11 2013
STATUS
approved