OFFSET
1,7
LINKS
Alois P. Heinz, Table of n, a(n) for n = 1..10000
MAPLE
a:= n-> (p-> max(seq(igcd(p(n), p(k)), k=0..n-1)))(combinat[numbpart]):
seq(a(n), n=1..100); # Alois P. Heinz, Oct 26 2019
MATHEMATICA
m = 100; p = PartitionsP[Range[0, m]]; Table[Max[GCD[p[[n]], p[[1 ;; n - 1]]]], {n, 2, m + 1}] (* Amiram Eldar, May 10 2020 *)
PROG
(PARI) a(n) = my(pn=numbpart(n)); vecmax(vector(n, k, k--; gcd(pn, numbpart(k)))); \\ Michel Marcus, May 10 2020
CROSSREFS
KEYWORD
nonn
AUTHOR
Reinhard Zumkeller, Feb 01 2004
STATUS
approved