|
%I #53 Apr 22 2021 03:07:41
%S 3,4,12,24,60,84,144,180,264,420,480,684,840,924,1104,1404,1740,1860,
%T 2244,2520,2664,3120,3444,3960,4704,5100,5304,5724,5940,6384,8064,
%U 8580,9384,9660,11100,11400,12324,13284,13944,14964,16020,16380
%N a(n) = lcm(p-1, p+1) where p is the n-th prime.
%C This sequence consists of terms of sequences A055523 and A055527 for prime n > 2. - Toni Lassila (tlassila(AT)cc.hut.fi), Feb 02 2004
%H Reinhard Zumkeller, <a href="/A084921/b084921.txt">Table of n, a(n) for n = 1..10000</a>
%H Christian Krause, <a href="https://github.com/ckrause/loda/blob/master/programs/oeis/084/A084921.asm">LODA program for A084921</a>
%H <a href="/index/Lc#lcm">Index entries for sequences related to lcm's</a>
%F a(n) = A084920(n)/2 for n > 1; a(n) = A084922(n)*3 for n > 2.
%F a(n) = A009286(A000040(n)). - _Enrique Pérez Herrero_, May 17 2012
%F a(n) ~ 0.5 n^2 log^2 n. - _Charles R Greathouse IV_, May 15 2013
%F Product_{n>=1} (1 + 1/a(n)) = 2. - _Amiram Eldar_, Jan 23 2021
%F a(n) = (A000040(n)^2 - 1) / 2 for n > 1. - _Christian Krause_, Mar 27 2021
%t LCM[#-1,#+1]&/@Prime[Range[50]] (* _Harvey P. Dale_, Oct 09 2018 *)
%o (PARI) a(n)=if(n<2,3,(prime(n)^2-1)/2) \\ _Charles R Greathouse IV_, May 15 2013
%o (Haskell)
%o a084921 n = lcm (p - 1) (p + 1) where p = a000040 n
%o -- _Reinhard Zumkeller_, Jun 01 2013
%Y Cf. A000040, A006093, A008864, A055523, A055527.
%K nonn
%O 1,1
%A _Reinhard Zumkeller_, Jun 11 2003
|
