|
%I #6 Jul 13 2015 22:43:38
%S 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,21,22,23,24,25,26,27,
%T 29,30,35,38,39,40,53
%N Numbers n such that prime(n)! is divisible by A180491(prime(n))
%C Also numbers n such that prime(n)! is divisible by A180492(n).
%C Is this sequence finite?
%C From _Robert G. Wilson v_, Sep 09 2010: (Start)
%C Checked to 10000 for more terms.
%C Conjecture: This sequence is finite and all its terms are present. (End)
%t f[n_] := Times @@ Mod[n, Range[2, n - 1]]; k = 1; lst = {}; While[k < 10001, If[ Divisible[ Prime@k!, f@Prime@k], AppendTo[lst, k]; Print@k]; k++ ]; lst (* _Robert G. Wilson v_, Sep 09 2010 *)
%Y Cf. A034386, A000142, A004125, A180491, A180492.
%K hard,more,nonn
%O 1,2
%A _Carl R. White_, Sep 08 2010
|
