|
%I #4 Dec 12 2015 11:25:39
%S 277,577,677,727,757,773,787,797,877,977,1777,2777,7177,7477,7577,
%T 7717,7727,7757,7877,47777,67777,71777,76777,77377,77477,77747,77773,
%U 77797,77977,79777,97777,727777,773777,775777,777277,777677,777737,777787
%N Near-repdigit primes with 7 as repeated digit.
%H Harvey P. Dale, <a href="/A105977/b105977.txt">Table of n, a(n) for n = 1..1000</a>
%e a(2)=577 is a term because all digits are equal to 7 except one.
%t Select[Union[FromDigits/@(Flatten[Permutations/@Flatten[ Table[ PadRight[ {n},i,7],{n,9},{i,3,6}],1],1])],PrimeQ] (* _Harvey P. Dale_, Dec 12 2015 *)
%K base,nonn
%O 1,1
%A _Shyam Sunder Gupta_, Apr 29 2005
|
