|
%I #20 Sep 08 2022 08:44:46
%S 1,1,6,3,5,9,11,22,17,19,13,33,35,23,17,47,49,43,63,61,55,59,41,65,93,
%T 95,99,101,57,71,107,125,119,129,139,121,139,143,137,167,161,171,185,
%U 189,175,67,175,219,221,209,227,221,191,221,227,257,259,253,273,263
%N a(n) = prime(n)*prime(n+2) mod prime(n+1).
%H G. C. Greubel, <a href="/A022462/b022462.txt">Table of n, a(n) for n = 1..10000</a>
%F a(n) = A090076(n) modulo A000040(n+1). - _Michel Marcus_, Sep 30 2013
%F Conjecture: a(n) = prime(n)*prime(n+2) - prime(n+1)*(prime(n) + prime(n+2) - prime(n+1) - 1), except for a(3) and a(8). - _Ridouane Oudra_, Oct 26 2021
%t Table[Mod[Prime[n]Prime[n+2], Prime[n+1]], {n, 1, 50}] (* _G. C. Greubel_, Feb 28 2018 *)
%o (PARI) a(n) = (prime(n)*prime(n+2)) % prime(n+1); \\ _Michel Marcus_, Sep 30 2013
%o (Magma) [NthPrime(n)*NthPrime(n+2) mod NthPrime(n+1): n in [1..50]]; // _G. C. Greubel_, Feb 28 2018
%Y Cf. A090076, A073271, A000040.
%K nonn
%O 1,3
%A _Clark Kimberling_
%E Edited by _Reinhard Zumkeller_, Jul 22 2002
|
