%I A090934
%S A090934 2,3,5,7,11,13,17,31,37,71,73,79,97,113,131,179,199,311,313,337,373,733,
%T A090934 919,991,1171,1399,1913,3191,3313,3797,3911,9733,11131,11171,11311,
%U A090934 13313,13933,19979,31193,31333,31379,31391,33119,71191,71333,77377
%N A090934 Primes such that least significant digit swapped with all other digits 
               yields primes.
%C A090934 Only digits 1,3,7 and 9 can be used for terms with more than 1 digit.
%e A090934 179 is a term as 179, 197 & 971 are all prime.
%t A090934 fQ[n_] := Block[{a = c = IntegerDigits[n], b = {}, l = Floor[ Log[10, 
               n] + 1]}, Do[ a = c; {a[[ -1]], a[[i]]} = {a[[i]], a [[ -1]]}; AppendTo[b, 
               FromDigits[a]], {i, 1, l}]; Union[ PrimeQ[b]] == {True}]; Select[Prime[ 
               Range[10000]], fQ[ # ] &] (from Ed Pegg Jr. (ed(AT)mathpuzzle.com), 
               Jan 15 2004)
%Y A090934 Sequence in context: A007500 A090933 A107845 this_sequence A068652 A003459 
               A118725
%Y A090934 Adjacent sequences: A090931 A090932 A090933 this_sequence A090935 A090936 
               A090937
%K A090934 base,nonn
%O A090934 1,1
%A A090934 Amarnath Murthy (amarnath_murthy(AT)yahoo.com), Dec 29 2003
%E A090934 Edited, corrected and extended by Robert G. Wilson v (rgwv(AT)rgwv.com), 
               Jan 15 2004