|
%I #14 Sep 08 2022 08:45:16
%S 17,35,36,39,42,48,50,74,80,92,95,105,120,122,128,135,141,170,171,203,
%T 206,218,239,249,255,263,276,284,287,300,311,332,333,338,351,386,398,
%U 401,414,417,419,449,450,468,483,486,498,507,512,515,524,531,534,569,575,576,581,615
%N Numbers n such that n11111111 is prime.
%H Robert Israel, <a href="/A102813/b102813.txt">Table of n, a(n) for n = 1..10000</a>
%e If n=17, then n11111111 = 1711111111 (prime).
%e If n=74, then n11111111 = 7411111111 (prime).
%e If n=128, then n11111111 = 12811111111 (prime).
%p select(n -> isprime(10^8*n+11111111), [$1..1000]); # _Robert Israel_, Feb 24 2017
%t Select[Range[700],PrimeQ[#*10^8+11111111]&] (* _Harvey P. Dale_, Sep 25 2015 *)
%o (Magma) [ n: n in [1..700] | IsPrime(Seqint([1,1,1,1,1,1,1,1] cat Intseq(n))) ]; // _Vincenzo Librandi_, Feb 03 2011
%K base,nonn
%O 1,1
%A _Parthasarathy Nambi_, Feb 26 2005
|
