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 A116892 #25 Feb 20 2024 08:23:04 %S A116892 2,7,47,79,103,127,191,199,263,367,383,431,479,503,599,607,631,727, %T A116892 743,823,839,863,887,991,1087,1151,1319,1367,1423,1487,1511,1583,1663, %U A116892 1783,1823,1871,1951,2039,2063,2111,2143,2287,2311,2383,2423,2447,2503,2551 %N A116892 Values of gcd(k!+1, k^k+1), when greater than 1. %C A116892 Apart from the initial term (2) and few exceptional values (A116894) this sequence seems to coincide with A067658. The values of k for which the terms of this sequence are obtained are in A116893. %H A116892 Nick Hobson, <a href="/A116892/b116892.txt">Table of n, a(n) for n = 1..10000</a> (first 1832 terms from Antti Karttunen) %e A116892 gcd(1!+1,1^1+1) = 2 gives the first term; %e A116892 gcd(3!+1,3^3+1) = gcd(7,28) = 7 gives the second, and so on. %t A116892 f[n_] := GCD[n! + 1, n^n + 1]; t = Array[f, 1295]; Rest@ Union@ t (* _Robert G. Wilson v_, Mar 09 2006 *) %o A116892 (PARI) lista(nn) = for (n=1, nn, if ((g=gcd(n! + 1, n^n + 1)) != 1, print1(g, ", "))); \\ _Michel Marcus_, Jul 22 2018 %o A116892 (C) See Links section in A116893. %Y A116892 Cf. A014566, A038507, A067658, A116891, A116893, A116894. %K A116892 easy,nonn %O A116892 1,1 %A A116892 _Giovanni Resta_, Mar 01 2006 %E A116892 Entries checked by _Robert G. Wilson v_, Mar 09 2006