%I
%S 6,7,8,9,12,13,14,18,22,23,24,25,26,29,31,32,33,35,37,38,39,40,41,42,
%T 43,45,46,47,49,51,52,53,54,55,57,58,59,60,61,62,63,64,65,66,67,68,69,
%U 70,71,73,74,76,77,78,79,80,81,83,85,86,87,88,89,90,91,92,93,94,95,96,98
%N Numbers n for which n^5n1 is not prime.
%C Includes all numbers == 6 or 8 (mod 17).  _Robert Israel_, Jul 14 2019
%H Robert Israel, <a href="/A177106/b177106.txt">Table of n, a(n) for n = 1..10000</a>
%p remove(t > isprime(t^5t1), [$2..200]); # _Robert Israel_, Jul 14 2019
%t Select[Range[100],CompositeQ[#^5#1]&] (* Requires Mathematica version 10 or later *) (* _Harvey P. Dale_, May 18 2019 *)
%Y Cf. A126427 (Numbers n for which n^5n1 is prime).
%K nonn,changed
%O 1,1
%A _Vincenzo Librandi_, Jun 25 2010
