login
The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A166571 Prime numbers containing the string 10. 12

%I

%S 101,103,107,109,1009,1013,1019,1021,1031,1033,1039,1049,1051,1061,

%T 1063,1069,1087,1091,1093,1097,1103,1109,3109,5101,5107,6101,7103,

%U 7109,8101,9103,9109,10007,10009,10037,10039,10061,10067,10069,10079,10091,10093

%N Prime numbers containing the string 10.

%H Vincenzo Librandi, <a href="/A166571/b166571.txt">Table of n, a(n) for n = 1..1000</a>

%F a(n) ~ n log n. - _Charles R Greathouse IV_, Jun 20 2014

%t p10Q[n_] := Module[{idn = IntegerDigits[n]}, MemberQ[Partition[idn, 2, 1], {1, 0}]]; Select[Prime[Range[1250]], p10Q] (* _Vincenzo Librandi_, Sep 14 2012 *)

%o (PARI) contains(n,k)=my(N=digits(n),K=digits(k)); for(i=0,#N-#K, for(j=1,#K,if(N[i+j]!=K[j],next(2))); return(1)); 0

%o is(n)=isprime(n) && contains(n,10) \\ _Charles R Greathouse IV_, Jun 20 2014

%Y Cf. A166572, A166573, A166579, A166580, A166581, A166582.

%K nonn,base

%O 1,1

%A _Vincenzo Librandi_, Nov 01 2009

%E Corrected (1087 inserted) by _R. J. Mathar_, Nov 30 2009

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified September 22 14:45 EDT 2020. Contains 337291 sequences. (Running on oeis4.)