OFFSET
1,1
COMMENTS
A006530(2^n)=2 is a local minimum. Actual sequence displays the "width of valley" between the two nearest peaks of largest prime divisors. At the bottom of valley lies the number 2, the minimum.
EXAMPLE
n=12: 2^10=4096. The greatest prime divisors of numbers around 4096 [both downward and upward] are as follows: {31, 4093, 89, 13, 2, 241, 683, 4099, 41}. The length of relevant sequence, i.e., between peaks 4093 and 4099 is 7, thus a(12)=7.
MATHEMATICA
With[{nn = 12, lim = 105}, Map[Total@ # - 1 &, Transpose@ {Table[Function[k, 1 + LengthWhile[#, # > 0 &] &@ Differences@ Array[FactorInteger[#][[-1, 1]] &, nn, k]][2^n], {n, lim}], Table[Function[k, 1 + LengthWhile[#, # > 0 &] &@ Differences@ Table[FactorInteger[m][[-1, 1]], {m, k, k - nn, -1}]][2^n], {n, lim}]}]] (* Michael De Vlieger, Jul 30 2017 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Labos Elemer, Jan 21 2005
STATUS
approved