OFFSET
1,1
COMMENTS
Indices of primes are 9,11,15,16,18,21,23,30,32,34,36,37,39,40,42,46,47,51, 53,54,55,56,58,61,62,66,... (subsequence of A113339).
MATHEMATICA
<<NumberTheory`NumberTheoryFunctions`; c=0; p=2; Do[p1=NextPrime[p]; If[ !IntegerQ[Log[2, p1-p]], c++; a[c]=p]; p=p1, {200}]; Table[a[i], {i, c}]
Select[Prime[Range[200]], !IntegerQ[Log[2, NextPrime[#]-#]]&] (* Harvey P. Dale, Apr 20 2011 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Zak Seidov, Aug 20 2007
STATUS
approved