%I #4 Mar 31 2012 23:00:58
%S 23,29,37,43,53,59,73,79,83,97,113,131,137,139,151,163,173,179,181,
%T 191,193,197,199,211,233,239,263,283,293,311,313,317,331,379,397,419,
%U 431,439,443,461,463,479,487,491,503,523,541,563,593,599,613,617,619,631
%N Primes which remain prime after omitting maximal digit.
%C If there are several maximal digits, first from left is omitted.
%t omit[d_, list_] := Module[{aux = {}, len = Length[list]},Do[If[list[[i]] == d, none, aux = Join[aux, {list[[i]]}]], {i,len}]; aux]; maxomit[n_] := omit[Max[IntegerDigits[Prime[n]]], IntegerDigits[Prime[n]]]; convert[lis_] := Sum[Reverse[lis][[i]] 10^(i - 1), {i, 1, Length[lis]}]; Table[If[PrimeQ[convert[maxomit[n]]], Prime[n], 0], {n, 1, 300}] //Union //Rest [From _Jose Grau_, Feb 17 2010]
%K base,easy,nonn
%O 1,1
%A _Zak Seidov_, Jan 27 2005
|