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

 Year-end appeal: Please make a donation to the OEIS Foundation to support ongoing development and maintenance of the OEIS. We are now in our 60th year, we have over 367,000 sequences, and we’ve reached 11,000 citations (which often say “discovered thanks to the OEIS”). Other ways to Give
 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A077321 Rearrange primes so as to form a triangle in which n-th row contains the n smallest primes == 1 (mod n) which have not occurred earlier. 5
 2, 3, 5, 7, 13, 19, 17, 29, 37, 41, 11, 31, 61, 71, 101, 43, 67, 73, 79, 97, 103, 113, 127, 197, 211, 239, 281, 337, 89, 137, 193, 233, 241, 257, 313, 353, 109, 163, 181, 199, 271, 307, 379, 397, 433, 131, 151, 191, 251, 311, 331, 401, 421, 431, 461, 23, 419, 463, 617 (list; table; graph; refs; listen; history; text; internal format)
 OFFSET 1,1 LINKS Ivan Neretin, Table of n, a(n) for n = 1..5050 EXAMPLE Triangle begins: 2 3 5 7 13 19 17 29 37 41 11 31 61 71 101 ... MAPLE A077321 := proc(nmax) local n, a, i, p; a := []; n :=1; while nops(a) < nmax do for i from 1 to n do p := 2; while ( p in a ) or (p-1) mod n <> 0 do p := nextprime(p); od; a := [op(a), p]; od; n := n+1; od; RETURN(a); end: A077321(100); # R. J. Mathar, Feb 03 2007 MATHEMATICA 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]]; A077321[100] (* Jean-François Alcover, May 30 2023, after R. J. Mathar *) CROSSREFS Cf. A077322, A077323, A077324, A077325. Cf. A100787, A100788, A100789, A100790. Sequence in context: A077316 A082011 A101044 * A216437 A165666 A154579 Adjacent sequences: A077318 A077319 A077320 * A077322 A077323 A077324 KEYWORD nonn,tabl AUTHOR Amarnath Murthy, Nov 04 2002, Nov 30 2004 EXTENSIONS More terms from Ray Chandler, Dec 10 2004 Edited by N. J. A. Sloane, Sep 14 2008 at the suggestion of R. J. Mathar STATUS approved

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.

Last modified December 11 02:45 EST 2023. Contains 367717 sequences. (Running on oeis4.)