OFFSET
1,1
COMMENTS
Each row is the longest strictly decreasing prefix of the corresponding row of A278115.
LINKS
Jason Kimberley, Table of i, a(i) for i = 1..10104 (T(n,k) for n = 1..3333)
EXAMPLE
The first six rows are:
2;
8, 3;
18, 12, 5;
32, 27, 20;
50, 48, 45, 28;
72, 48, 45;
MATHEMATICA
Map[Take[#, 1 + Length@ TakeWhile[Differences@ #, # < 0 &]] &, #] &@ Table[# Floor[n Sqrt[2/#]]^2 &@ Prime@ k, {n, 20}, {k, PrimePi[2 n^2]}] // Flatten (* Michael De Vlieger, Feb 17 2017 *)
PROG
CROSSREFS
KEYWORD
nonn,tabf,easy
AUTHOR
Jason Kimberley, Feb 12 2017
STATUS
approved