1,2

A259527(n) rows begin with n.

Peter Kagey, Table of n, a(n) for n = 1..10000

[8,9,10,12,15] appears as a row in the table because A006255(8) = 15 and the product of the row is a square: 8*9*10*12*15 = 360^2.

Table begins:

1;

2, 3, 4, 6;

2, 3, 6;

3, 4, 6, 8;

3, 6, 8;

4;

5, 8, 9, 10;

5, 8, 10;

6, 8, 9, 12;

6, 8, 12;

7, 8, 9, 14;

7, 8, 14;

8, 9, 10, 12, 15;

8, 10, 12, 15;

...

MapIndexed[With[{b = #1, a = First@ #2}, Reverse@ Select[Rest@ Subsets@ Range[a, b], And[SubsetQ[#, {a, b}], IntegerQ@ Sqrt[Times @@ #]] &]] &, #] &@ Table[k = 0; Which[IntegerQ@ Sqrt@ n, k, And[PrimeQ@ n, n > 3], k = n, True, While[Length@ Select[n Map[Times @@ # &, n + Rest@ Subsets@ Range@ k], IntegerQ@ Sqrt@# &] == 0, k++]]; k + n, {n, 16}] // Flatten (* Michael De Vlieger, Dec 30 2016 *)

Cf. A006255, A245499, A259527.

Sequence in context: A004567 A344340 A030378 * A203138 A249900 A260272

Adjacent sequences: A280241 A280242 A280243 * A280245 A280246 A280247

nonn,tabf,look

Peter Kagey, Dec 29 2016

approved