OFFSET
1,2
COMMENTS
If one specifies that not only are there n(n+1)/2 distinct numbers in the addition and multiplication tables, but that all n(n+1) numbers are distinct, then the sequence is A337946 - David A. Corneth, Oct 02 2020
LINKS
Rémy Sigrist, Table of n, a(n) for n = 1..3000 (a(1)-a(101) from Jean-Paul Delahaye, a(102)-a(1000) from Peter Kagey)
Rémy Sigrist, C++ program for A337655
MATHEMATICA
terms=67; a[1]=b[1]=1; a1=b1={1}; Do[k=a[n-1]+1; While[a2=Union@Join[{2k}, Array[a@#+k&, n-1]]; b2=Union@Join[{k^2}, Array[b@#*k&, n-1]]; Intersection[a2, a1]!={}||Intersection[b2, b1]!={}, k++]; a[n]=b[n]=k; a1=Union[a1, a2]; b1=Union[b1, b2], {n, 2, terms}]; Array[a, terms] (* Giorgos Kalogeropoulos, Nov 15 2021 *)
PROG
(C++) See Links section.
CROSSREFS
KEYWORD
nonn
AUTHOR
Jean-Paul Delahaye, Sep 30 2020
STATUS
approved