|
%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
|
