OFFSET
1,1
EXAMPLE
MATHEMATICA
t[n_] := n(n+1)(n+2)/6; seqQ[n_] := If[PrimeQ[n], Module[{tn = t[n], ans = True}, Do[If[Divisible[tn, t[i]], ans=False; Break[]], {i, 2, n-1}]; ans], False]; Select[Range[650], seqQ] (* Amiram Eldar, Nov 22 2018 *)
PROG
(PARI) t(n) = n*(n+1)*(n+2)/6;
isok(n) = if (isprime(n), my(tn = t(n)); for (i=2, n-1, if ((tn % t(i)) == 0, return (0))); return (1), return (0)); \\ Michel Marcus, Sep 23 2018
CROSSREFS
KEYWORD
nonn
AUTHOR
Torlach Rush, Sep 03 2018
STATUS
approved