OFFSET
1,2
LINKS
Peter Kagey, Table of n, a(n) for n = 1..1000
Peter Kagey, Haskell program
EXAMPLE
The addition table of a(k) for k=1..5:
+ | 1 3 7 12 22
---+-------------
1 | 2 4 8 13 23
3 | 6 10 15 25
7 | 14 19 29
12 | 24 34
22 | 44
The multiplication table of a(k) for k=1..5:
* | 1 3 7 12 22
---+---------------
1 | 1 3 7 12 22
3 | 9 21 36 66
7 | 49 84 154
12 | 144 264
22 | 484
These two tables contain the 5*(5+1) = 30 values {1, 2, 3, 4, 6, 7, 8, 9, 10, 12, 13, 14, 15, 19, 21, 22, 23, 24, 25, 29, 34, 36, 44, 49, 66, 84, 144, 154, 264, 484}.
MATHEMATICA
j={k=1}; Do[While[l=Join[j, {++k}]; g=Union[Sort/@Tuples[l, {2}]]; p=Times@@#&/@g; s=Total/@g; !SameQ@@Flatten[{Length@Union@Flatten@{p, s}, Length@l(Length@l+1)}]]; j=Join[j, {k}]; k=Last@j, 48]; j (* Giorgos Kalogeropoulos, Nov 16 2021 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Peter Kagey, Oct 02 2020
STATUS
approved