A072467 - OEIS

%I #3 Dec 05 2013 19:55:20

%S 2,3,5,7,13,19,29,37,41,53,61,71,101,131,151,157,163,181,193,199,211,

%T 239,281,337,379,421,449,463,521,569,577,593,601,617,641,673,739,757,

%U 811,829,883,919,937,991,1009,1021,1031,1051,1061,1091,1151,1171,1181

%N Triangle in which n-th row contains n primes == 1 mod (n) and the first term of a row is just greater than the last term of the previous row.

%t a = {2}; k = 3; Do[i = 1; While[i < n + 1, If[ PrimeQ[k] && Mod[k, n] == 1, a = Append[a, k]; i++ ]; k++ ], {n, 2, 10}]; a

%Y Cf. A072468, A072469.

%K nonn,tabl

%O 1,1

%A _Amarnath Murthy_, Jun 19 2002

%E Edited by _Robert G. Wilson v_, Jun 25 2002