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,1

Links

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

Formula

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

Mathematica

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

Prog

(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

Crossrefs

Cf. similar sequences listed in A243529.

Sequence in context: A185444 A217546 A057604 * A272984 A230869 A132250

Adjacent sequences: A243529 A243530 A243531 * A243533 A243534 A243535

Keyword

nonn,base

Author

Vincenzo Librandi, Jun 06 2014

Status

approved