|
|
A283148
|
|
Irregular triangle read by rows where the n-th row list the integers x such that the quotient x/(least prime factor of x)^2 is equal to n, for n>=2.
|
|
1
|
|
|
8, 12, 27, 16, 20, 45, 125, 24, 28, 63, 175, 343, 32, 36, 81, 40, 44, 99, 275, 539, 1331, 48, 52, 117, 325, 637, 1573, 2197, 56, 60, 135, 64, 68, 153, 425, 833, 2057, 2873, 4913, 72, 76, 171, 475, 931, 2299, 3211, 5491, 6859, 80, 84, 189, 88, 92, 207, 575, 1127, 2783, 3887, 6647, 8303, 12167
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
2,1
|
|
LINKS
|
|
|
EXAMPLE
|
Triangle begins:
8;
12, 27;
16,
20, 45, 125;
24;
28, 63, 175, 343;
32;
36, 81;
40;
44, 99, 275, 539, 1331;
48;
52, 117, 325, 637, 1573, 2197;
...
|
|
MATHEMATICA
|
Table[Select[Range[n^3], #/(FactorInteger[#][[1, 1]])^2 == n &], {n, 2, 23}] // Flatten (* Michael De Vlieger, Mar 02 2017 *)
|
|
PROG
|
(PARI) row(n) = {vn = []; for(k=2, n^3, if (!(k % (p=factor(k)[1, 1]^2)) && (k/p == n), vn = concat(vn, k)); ); vn; }
tabf(nn) = for (n=2, nn, print(row(n))); \\ Michel Marcus, Mar 03 2017
|
|
CROSSREFS
|
Cf. A055396 (number of terms of the n-th row).
|
|
KEYWORD
|
nonn,tabf
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|