login
The OEIS is supported by the many generous donors to the OEIS Foundation.

 

Logo
Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A077323 Final terms of rows of A077321. 5

%I #10 May 30 2023 07:43:23

%S 2,5,19,41,101,103,337,353,433,461,991,673,1301,1163,1801,1873,3061,

%T 2053,4219,3121,4159,3301,5659,4153,6151,5981,8263,6329,10267,6361,

%U 14323,9697,11287,10303,14281,10729,19759,14593,17863,15761,22961,14407

%N Final terms of rows of A077321.

%p A077323 := proc(nmax) local n,a,T,i,p ; T := [] ; a := [] ; n :=1 ; while nops(a) < nmax do for i from 1 to n do p := 2 ; while ( p in T ) or (p-1) mod n <> 0 do p := nextprime(p) ; od ; T := [op(T),p] ; if i = n then a := [op(a),p] ; fi ; od ; n := n+1 ; od ; RETURN(a) ; end: A077323(50) ; # _R. J. Mathar_, Feb 03 2007

%t nrows = 42;

%t A077321[nmax_] := Module[{n = 1, a = {}, i, p}, While[Length[a] < nmax, For[i = 1, i <= n, i++, p = 2; While[MemberQ[a, p] || Mod[p - 1, n] != 0, p = NextPrime[p]]; a = Append[a, p]]; n = n + 1]; Return[a]];

%t T = A077321[nmax = nrows (nrows + 1)/2];

%t a[n_] := T[[n (n + 1)/2]];

%t Table[a[n], {n, 1, nrows}] (* _Jean-Fran├žois Alcover_, May 30 2023, after _R. J. Mathar_ *)

%Y Cf. A077321, A077322, A077324, A077325.

%K nonn

%O 1,1

%A _Amarnath Murthy_, Nov 04 2002

%E Corrected and extended by _R. J. Mathar_, Feb 03 2007

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified February 29 14:40 EST 2024. Contains 370425 sequences. (Running on oeis4.)