This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A088835 #20 Mar 16 2025 13:09:11 %S A088835 1,2,3,2,5,6,7,2,3,10,11,6,13,14,15,2,17,6,19,10,21,22,23,6,5,26,3,14, %T A088835 29,10,31,2,33,34,35,6,37,38,39,10,41,14,43,22,15,46,47,6,7,10,51,26, %U A088835 53,6,55,14,57,58,59,10,61,62,21,2,65,22,67,34,69,14,71,6,73,74,15,38,77 %N A088835 a(n) = lcm(A020639(n), A006530(n)). %H A088835 Enrique Pérez Herrero, <a href="/A088835/b088835.txt">Table of n, a(n) for n = 1..10000</a> %F A088835 a(n) = A097448(A066048(n)). - _Amiram Eldar_, Mar 16 2025 %t A088835 Map[LCM[#[[1,1]], #[[-1,1]]] &, FactorInteger[Range[100]]] (* _Paolo Xausa_, Mar 29 2024 *) %o A088835 (PARI) a(n) = if (n==1, 1, my(f=factor(n)[,1]~); lcm(vecmin(f), vecmax(f))); \\ _Michel Marcus_, Mar 15 2018 %Y A088835 Cf. A020639, A006530, A066048, A007947, A062953, A015052, A015053, A053166, A097448. %K A088835 nonn %O A088835 1,2 %A A088835 _Labos Elemer_, Oct 31 2003