%I #11 Feb 22 2018 08:00:12
%S 8,56,182,552,1406,2862,4556,9506,10712,17292,19460,30102,32942,37442,
%T 49952,54522,69432,77006,94556,113906,167690,177662,209306,259590,
%U 317532,352242,376382,398792,427062,636006,658532,678152
%N Maximum of A073830(k) for k between A001359(n) and A001359(n+1).
%C a(n) = A073830(A073832(n)); a(n) < A037074(n+2).
%p A073831 := proc(n)
%p A073830(A073832(n)) ;
%p end proc:
%p seq(A073831(n),n=1..50) ; # _R. J. Mathar_, Feb 21 2017
%t f[n_] := Mod[4*((n - 1)! + 1) + n, n*(n + 2)];
%t pp = Select[Prime[Range[200]], PrimeQ[# + 2] & ];
%t a[n_] := Max[f /@ Range[pp[[n]], pp[[n + 1]]]];
%t Array[a, Length[pp] - 1] (* _Jean-François Alcover_, Feb 22 2018 *)
%K nonn
%O 1,1
%A _Reinhard Zumkeller_, Aug 12 2002