|
|
A081535
|
|
Sum of row n of triangle in A081536.
|
|
3
|
|
|
1, 0, 6, 14, 15, 24, 28, 40, 45, 56, 66, 84, 91, 105, 120, 140, 153, 176, 190, 210, 231, 255, 276, 304, 325, 357, 378, 408, 435, 468, 496, 528, 561, 595, 630, 667, 703, 741, 780, 825, 861, 910, 946, 990, 1035, 1085, 1128, 1178, 1225, 1275, 1326, 1380, 1431
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,3
|
|
LINKS
|
|
|
FORMULA
|
For n > 4, a(n) is the least number k >= n(n+1)/2 such that k - gpp(k) >= n(n-1)/2, where gpp(k) is the largest prime power dividing k. - Charlie Neder, Feb 03 2019
|
|
PROG
|
(PARI) a(n) = if(n<5, return([1, 0, 6, 14][n])); for(k=n*(n+1)/2, oo, if(k-if(1==k, k, my(f=factor(k)); vecmax(vector(#f[, 1], i, f[i, 1]^f[i, 2]))) >= n*(n-1)/2, return(k))); \\ Jinyuan Wang, May 03 2020
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|