A077323 Final terms of rows of A077321.

2, 5, 19, 41, 101, 103, 337, 353, 433, 461, 991, 673, 1301, 1163, 1801, 1873, 3061, 2053, 4219, 3121, 4159, 3301, 5659, 4153, 6151, 5981, 8263, 6329, 10267, 6361, 14323, 9697, 11287, 10303, 14281, 10729, 19759, 14593, 17863, 15761, 22961, 14407

Offset

1,1

Links

Table of n, a(n) for n=1..42.

Maple

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

Mathematica

nrows = 42;
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 = A077321[nmax = nrows (nrows + 1)/2];
a[n_] := T[[n (n + 1)/2]];
Table[a[n], {n, 1, nrows}] (* Jean-François Alcover, May 30 2023, after R. J. Mathar *)

Crossrefs

Cf. A077321, A077322, A077324, A077325.

Sequence in context: A086085 A138250 A140761 * A215274 A293457 A304782

Adjacent sequences: A077320 A077321 A077322 * A077324 A077325 A077326

Keyword

nonn

Author

Amarnath Murthy, Nov 04 2002

Extensions

Corrected and extended by R. J. Mathar, Feb 03 2007

Status

approved