OFFSET
1,1
COMMENTS
Twin primes for which a(n)=1 are in A122565.
Conjecture: The sequence is unbounded.
LINKS
T. D. Noe, Table of n, a(n) for n = 1..10000
FORMULA
A001359(n) == -1 (mod 2^a(n)).
MATHEMATICA
nn = 1000; ps = Prime[Range[nn]]; t = {}; Do[If[ps[[n]] + 2 == ps[[n + 1]], AppendTo[t, ps[[n]]]], {n, nn - 1}]; Table[b2 = IntegerDigits[t[[k]] + 2, 2]; b1 = IntegerDigits[t[[k]], 2, Length[b2]]; Total[Abs[b1 - b2]], {k, Length[t]}] (* T. D. Noe, Jan 30 2012 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Vladimir Shevelev, Jan 30 2012
STATUS
approved