|
%I #21 Jul 12 2022 12:59:20
%S 2,3,5,7,11,13,17,19,23,29,31,37,41,43,47,53,59,61,67,71,73,79,83,89,
%T 97,113,211,311,313,317,419,613,617,619,719,811,911,919,1117,2111,
%U 2113,3119,4111,5113,5119,6113,8111,8117,11113,11117,11119,41113,41117,71119
%N Primes with either no internal digits or all internal digits are 1.
%H Eder Vanzei, <a href="/A069676/b069676.txt">Table of n, a(n) for n = 1..257</a>
%t aid1Q[n_]:=Union[Most[Rest[IntegerDigits[n]]]]=={1}; Join[Prime[Range[PrimePi[ 100]]], Select[Prime[Range[PrimePi[100]+1,7100]],aid1Q]] (* _Harvey P. Dale_, Apr 12 2013 *)
%o (PARI) lista(na) = my(vp = List(primes(primepi(100)))); for (n=1, na, my(x=(10^n-1)/9); for (i=1, 9, forstep(j=1, 9, 2, my(y=10^(n+1)*i + 10*x + j); if (ispseudoprime(y), listput(vp, y));););); Vec(vp); \\ _Michel Marcus_, Jul 12 2022
%Y Cf. A069675, A069677, A069678, A069679, A069680, A069681, A069682, A069683, A069684.
%K nonn,base
%O 1,1
%A _Amarnath Murthy_, Apr 06 2002
%E Corrected by _Ray Chandler_, Nov 24 2003
%E Offset corrected and name changed by _Arkadiusz Wesolowski_, Sep 07 2011
|
