login
Differences between successive multiples of either 11 or 19.
0

%I #10 Nov 08 2021 08:05:49

%S 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,

%T 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,

%U 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

%N Differences between successive multiples of either 11 or 19.

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

%o (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++); ); }

%o (Python)

%o def diff(lst):

%o return [lst[i+1]-lst[i] for i in range(len(lst)-1)]

%o def auptomult(N):

%o return diff(sorted(set([k*i for k in [11, 19] for i in range(N//k+1)])))

%o print(auptomult(630)) # _Michael S. Branicky_, Nov 08 2021

%K nonn

%O 0,1

%A _Jon Perry_, Jul 22 2003

%E Corrected and extended by _Ray Chandler_, Aug 10 2003