login
Maximum of A073830(k) for k between A001359(n) and A001359(n+1).
3

%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