OFFSET
1,3
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 1..1275
EXAMPLE
n\k 0 1 2 3 4 5 6 7
-----------------------------------------
1 | 0 2 5 10 17 28 41 58 A007504
2 | 0 1 5 14 29 50 80 119
3 | 0 43 127 167 213 321 387 457 A112270
4 | 0 7 25 40 82 110 142 178
5 | 0 1 2 20 32 88 212 296 A112271
6 | 0 1145 3758 3932 4300 4490 4684 5084
7 | 0 4 11 34 113 284 441 634 A112272
8 | 0 20 41 55 71 89 158 185
MAPLE
MATHEMATICA
max = 12; rect[n_, k_] := Module[{j, i, L, s}, L = {}; j = 0; While[Length[L]<k, s = Sum[Prime[i]/n, {i, 1, j}]; If[IntegerQ[s], AppendTo[L, s]]; j = j+1]; L]; a[_, 0] = 0; a[n_, k_] := rect[n, max][[k+1]]; Table[a[n-k, k], {n, 1, max} , {k, 0, n-1}] // Flatten (* Jean-François Alcover, Feb 25 2014, after Maple *)
CROSSREFS
KEYWORD
nonn,tabl
AUTHOR
Peter Luschny, Jul 29 2011
STATUS
approved