A155990 - OEIS

%I #10 Jan 22 2019 02:50:34

%S 3,5,11,17,79,83,97,103,131,137,149,157,239,241,257,269,359,367,379,

%T 389,1399,1409,1427,1433,1459,1471,1483,1489,1601,1607,1613,1621,1747,

%U 1753,1777,1787,2137,2141,2153,2179,2237,2239,2251,2269,2377,2381,2389,2399

%N Numbers prime(k) as k runs through the numbers whose digits are all prime.

%F a(n) = A000040(A046034(n)). - _Michel Marcus_, Jan 21 2019

%p isA046034 := proc(n) local d ; d := convert(convert(n,base,10),set) ; if d intersect {0,1,4,6,8,9} = {} then true; else false; fi; end: for n from 1 to 3000 do if isA046034(n) then printf("%d,",ithprime(n)) ; fi; od: # _R. J. Mathar_, Feb 10 2009

%Y Cf. A000040, A046034, A141468.

%K nonn,base

%O 1,1

%A _Juri-Stepan Gerasimov_, Feb 01 2009

%E Edited by _N. J. A. Sloane_, Feb 02 2009

%E 149 inserted by _R. J. Mathar_, Feb 10 2009