A086110 p=prime is substring of 2^p-1.

7, 37, 67, 73, 89, 179, 191, 373, 479, 521, 601, 613, 619, 653, 661, 673, 701, 719, 727, 769, 773, 853, 881, 907, 919, 1553, 1571, 1693, 1709, 1747, 1831, 2003, 2111, 2137, 2309, 2347, 2351, 2543, 2593, 2707, 2719, 2837, 3023, 3361, 3583, 3613, 3673, 3727

Offset

0,1

Comments

n such that p=prime(n) is substring of 2^p-1 in A086109.

Links

Table of n, a(n) for n=0..47.

Example

a(2)=37 because prime=37 is substring of 2^37-1=137438953471.

Mathematica

Select[Prime[Range[600]], SequenceCount[IntegerDigits[2^#-1], IntegerDigits[ #]]>0&] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Apr 30 2019 *)

Crossrefs

Cf. A086109.

Sequence in context: A093342 A336494 A361485 * A104914 A032588 A123084

Adjacent sequences: A086107 A086108 A086109 * A086111 A086112 A086113

Keyword

easy,nonn,base

Author

Zak Seidov, Jul 10 2003

Status

approved