%I #11 May 08 2022 08:48:03
%S 11,31,41,51,61,71,101,131,141,151,181,191,211,241,251,271,281,311,
%T 321,331,401,411,421,431,461,491,521,541,571,601,631,641,661,691,701,
%U 751,761,811,821,881,911,941,951,971,991,1021,1031,1051,1061,1091,1151,1171
%N Numbers m of form 5k+1 such that binomial(m-1,(m-1)/5) == 1 (mod m).
%C Contains primes of form 5k+1 and some composite of form 5k+1 such that (5k+1)/3 is prime.
%H Amiram Eldar, <a href="/A090756/b090756.txt">Table of n, a(n) for n = 1..10000</a>
%t Select[5*Range[0, 250] + 1, Mod[Binomial[# - 1, (# - 1)/5] , #] == 1 &] (* _Amiram Eldar_, May 08 2022 *)
%Y Cf. A016861, A030430.
%K nonn
%O 1,1
%A _Benoit Cloitre_, Feb 07 2004
%E Offset corrected by _Amiram Eldar_, May 08 2022
|