OFFSET
1,2
COMMENTS
Also numbers n such that prime(n)! is divisible by A180492(n).
Is this sequence finite?
From Robert G. Wilson v, Sep 09 2010: (Start)
Checked to 10000 for more terms.
Conjecture: This sequence is finite and all its terms are present. (End)
MATHEMATICA
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 *)
CROSSREFS
KEYWORD
hard,more,nonn
AUTHOR
Carl R. White, Sep 08 2010
STATUS
approved