A109324 Gap lengths associated with A109323.
1, 3, 5, 9, 11, 15, 17, 19, 23, 29, 31, 35, 47, 53, 55, 57, 59, 67, 71, 73, 81, 83, 85
Offset: 1
Extensions
a(19)-a(23) from Donovan Johnson, Jan 25 2012
This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
8 and 12 are the 6th and 7th possible values for sigma(x), since they are sum of divisors of x = 7 and x = 11 respectively, while 9, 10, 11 are impossible ones so 12 - 8 = 4 = a(6) = A002191(7) - A002191(6). From _Michael De Vlieger_, Jul 22 2017: (Start) First position of values: Value First position 1 2 2 1 3 10 4 6 5 30 6 24 7 277 8 165 9 509 10 150 11 824 12 400 13 10970 14 1400 15 10448 16 1182 17 18731 18 2218 19 209237 20 3420 21 127385 22 6910 23 28899 24 5377 (End)
t=Table[DivisorSigma[1, w], {w, 1, 25000}]; u=Union[%]; Delete[u-RotateRight[u], 1] (* Second program: *) With[{nn = 300}, Differences@ TakeWhile[Union@ DivisorSigma[1, Range@ nn], # < nn &]] (* Michael De Vlieger, Jul 22 2017 *)
a(2)=16 because 16,17 are not contained in values of sigma(k) and 15,18 are; namely: sigma(8)=15 and sigma(10)=18, where sigma(k)=sum of all positive divisors of k.
oksuccs(v, vi, n) = {for (i = 1, n-1, if (! vecsearch(v, vi+i, ) , return (0));); return(! vecsearch(v, vi-1) && !vecsearch(v, vi+n));} a(n) = {v = readvec("suntouch2.log"); for (i=1, #v, vi = v[i]; if (oksuccs(v, vi, n), return(vi)););} \\ where file read by readvec is the second column of b-file. Michel Marcus, Nov 21 2013
Comments