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 A126288 #11 Sep 08 2020 05:30:12 %S A126288 2,3,2,10,3,14,2,12,15,22,3,52,7,10,6,136,3,114,5,28,33,46,3,40,65,6, %T A126288 63,116,5,186,2,176,51,14,15,444,19,26,15,328,7,258,11,20,207,94,3, %U A126288 112,35,170,39,212,3,198,35,152,87,118,5,732,31,14,18,416,55,402,17,92,21,710 %N A126288 a(1) = 2, a(n) = n * LargestPrimeFactor(n+1) / LargestPrimeFactor(n). %H A126288 Ivan Neretin, <a href="/A126288/b126288.txt">Table of n, a(n) for n = 1..10000</a> %F A126288 a(n) = A006530(n+1)*A052126(n) for n>1. - _Michel Marcus_, May 20 2015 %e A126288 a(6) = 6 * LargestPrimeFactor(7) / LargestPrimeFactor(6) = 6 * 7 / 3 = 14 %t A126288 a[1] := 2; a[n_] := n*FactorInteger[n + 1][[-1, 1]]/FactorInteger[n][[-1, 1]]; Table[a[n], {n, 70}] (* _Ivan Neretin_, May 20 2015 *) %o A126288 (PARI) gpf(n) = vecmax(factor(n)[,1]); %o A126288 a(n) = if (n==1, 2, n*gpf(n+1)/gpf(n)); \\ _Michel Marcus_, Sep 08 2020 %Y A126288 Cf. A126286, A126287, A126289, A006530. %K A126288 easy,nonn %O A126288 1,1 %A A126288 _Lior Manor_, Dec 25 2006