A085757 Differences between successive multiples of either 11 or 19.

11, 8, 3, 11, 5, 6, 11, 2, 9, 10, 1, 11, 7, 4, 11, 4, 7, 11, 1, 10, 9, 2, 11, 6, 5, 11, 3, 8, 11, 11, 8, 3, 11, 5, 6, 11, 2, 9, 10, 1, 11, 7, 4, 11, 4, 7, 11, 1, 10, 9, 2, 11, 6, 5, 11, 3, 8, 11, 11, 8, 3, 11, 5, 6, 11, 2, 9, 10, 1, 11, 7, 4, 11, 4, 7, 11, 1, 10, 9, 2, 11, 6, 5, 11, 3, 8, 11

Offset

0,1

Links

Table of n, a(n) for n=0..86.

Mathematica

With[{nn=90}, Differences[Union[Join[11*Range[0, nn], 19*Range[0, nn]]]]] (* Harvey P. Dale, Jan 30 2015 *)

Prog

(PARI) maxn=100; i11=0; i19=0; n=1; {until(n>maxn, a=min(i11*11, i19*19); if(n>1, print1(a-last ", "); ); last=a; n++; if(a/11==i11, i11++); if(a/19==i19, i19++); ); }
(Python)
def diff(lst):
    return [lst[i+1]-lst[i] for i in range(len(lst)-1)]
def auptomult(N):
    return diff(sorted(set([k*i for k in [11, 19] for i in range(N//k+1)])))
print(auptomult(630)) # Michael S. Branicky, Nov 08 2021

Crossrefs

Sequence in context: A055505 A159526 A090841 * A003567 A085688 A164059

Adjacent sequences: A085754 A085755 A085756 * A085758 A085759 A085760

Keyword

nonn

Author

Jon Perry, Jul 22 2003

Extensions

Corrected and extended by Ray Chandler, Aug 10 2003

Status

approved