A243532 Prime numbers containing the string 16.

163, 167, 1163, 1601, 1607, 1609, 1613, 1619, 1621, 1627, 1637, 1657, 1663, 1667, 1669, 1693, 1697, 1699, 2161, 3163, 3167, 3169, 5167, 6163, 8161, 8167, 9161, 10163, 10169, 11161, 11617, 11621, 11633

Offset: 1

Author

Vincenzo Librandi, Jun 06 2014

Keywords

• nonn
• base

Links

• Vincenzo Librandi, Table of n, a(n) for n = 1..1000

Crossrefs

Cf. similar sequences listed in A243529.

Programs

Mathematica

Select[Prime[Range[2000]], !StringFreeQ[ToString[#], "16" ]&]

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
is(n)=isprime(n) && contains(n,16) \\ Charles R Greathouse IV, Jun 20 2014

Formula

a(n) ~ n log n. - Charles R Greathouse IV, Jun 20 2014