%I A105435
%S A105435 3,7,13,31,37,67,73,79,97,103,109,151,163,181,193,223,229,277,283,307,
%T A105435 367,373,409,433,439,487,499,523,571,601,607,613,619,709,733,787,811,
%U A105435 823,877,907,997,1069,1087,1093,1117,1171,1213,1279,1321,1399,1423,1447
%N A105435 Primes which with a 1 prepended stay prime.
%p A105435 with(numtheory); for i from 1 to 500 do if isprime(10^(ceil(log[10](ithprime(i))))+ithprime(i)) 
               then printf(`%d,`, ithprime(i)) fi: od: (Sellers)
%t A105435 Select[ Prime[ Range[ 230]], PrimeQ[ FromDigits[ Join[{1}, IntegerDigits[ 
               # ]]]] &] (from Robert G. Wilson v (rgwv(AT)rgwv.com), Apr 09 2005)
%Y A105435 Cf. A023237.
%Y A105435 Sequence in context: A049488 A136051 A100750 this_sequence A117708 A093431 
               A083520
%Y A105435 Adjacent sequences: A105432 A105433 A105434 this_sequence A105436 A105437 
               A105438
%K A105435 nonn,base
%O A105435 1,1
%A A105435 Lekraj Beedassy (blekraj(AT)yahoo.com), Apr 08 2005
%E A105435 Corrected and extended by Robert G. Wilson v (rgwv(AT)rgwv.com) and James 
               A. Sellers (sellersj(AT)math.psu.edu), Apr 09 2005