OFFSET
1,2
COMMENTS
LINKS
FORMULA
EXAMPLE
Triangle begins:
1;
2, 1, 1;
3, 2, 1, 1, 1, 1;
4, 2, 2, 1, 1, 1, 1, 1, 1, 1, 1;
...
where the first 11 terms of A005117(k) are
1, 2, 3, 5, 6, 7,10,11,13,14,15.
MATHEMATICA
DeleteCases[#, 0] & /@ Table[Boole[SquareFreeQ@ k] Floor[n/Sqrt@ k], {n, 8}, {k, n^2}] (* Michael De Vlieger, Nov 24 2016 *)
PROG
(Magma)
A277647:=func<n, k|Isqrt(n^2 div k)>;
&cat[A277648_row(n):n in[1..8]];
(PARI)
row(n)={apply(k->sqrtint(n^2\k), select(issquarefree, [1..n^2]))}
for(n=1, 6, print(row(n))) \\ Andrew Howroyd, Feb 28 2018
CROSSREFS
KEYWORD
nonn,tabf,easy
AUTHOR
Jason Kimberley, Nov 10 2016
EXTENSIONS
Missing a(3009) in b-file inserted by Andrew Howroyd, Feb 28 2018
STATUS
approved