OFFSET
0,1
COMMENTS
n such that p=prime(n) is substring of 2^p-1 in A086109.
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
KEYWORD
easy,nonn,base
AUTHOR
Zak Seidov, Jul 10 2003
STATUS
approved