A103119 - OEIS

%I #6 Mar 29 2015 14:20:42

%S 7,10,23,26,29,34,41,43,47,62,73,80,89,92,97,98,100,121,124,131,142,

%T 149,155,157,173,175,181,182,191,197,202,203,218,229,230,236,241,245,

%U 250,253,262,268,272,274,275,286,289,293,295,302,311,320,323,331,335,338

%N Numbers n such that n0999 is prime.

%e If n=7, then n0999 = 70999 (prime).

%e If n=41, then n0999 = 410999 (prime).

%e If n=80, then n0999 = 800999 (prime).

%t fQ[n_] := PrimeQ[ FromDigits[ Join[ IntegerDigits[n], {0, 9, 9, 9}]]]; Select[ Range[ 349], fQ[ # ] &] (* _Robert G. Wilson v_, Mar 26 2005 *)

%Y Cf. A104153.

%K base,nonn

%O 1,1

%A _Parthasarathy Nambi_, Mar 16 2005

%E Edited and extended by _Robert G. Wilson v_, Mar 26 2005