|
%I #20 Dec 25 2019 08:36:17
%S 2,3,4,5,6,7,8,9,10,11,13,14,17,19,22,23,26,29,31,34,37,38,41,43,46,
%T 47,53,58,59,61,62,67,71,73,74,79,82,83,86,89,94,97,101,103,106,107,
%U 109,113,118,122,127,131,134,137,139,142,146,149,151,157,158,163
%N Numbers m such that (m-1)! is not divisible by m^2.
%C Union of {8, 9} and A001751.
%D G. Pólya and G. Szegő, Problems and Theorems in Analysis II (Springer 1924, reprinted 1972), Part Eight, Chap. 3, Sect. 1, Problem 133b.
%t Select[Range[200],!Divisible[(#-1)!,#^2]&] (* _Harvey P. Dale_, Mar 06 2016 *)
%o (PARI) for(m=1,3e2,if((m-1)!%m^2,print1(m", "))) \\ _Charles R Greathouse IV_, Aug 21 2011
%o (Haskell)
%o import Data.List (insert)
%o a178156 n = a178156_list !! (n-1)
%o a178156_list = insert 9 $ insert 8 a001751_list
%o -- _Reinhard Zumkeller_, Oct 14 2014
%Y Cf. A046022, A000142, A174460.
%Y Cf. A001751.
%K nonn
%O 1,1
%A _Reinhard Zumkeller_, Dec 17 2010
%E Entries corrected by _Charles R Greathouse IV_, Aug 21 2011
|
