A097396 Duplicate of A056788.
2, 5, 31, 283, 3381, 49781, 870199, 17600759, 404197705, 10387420489
Offset: 1
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.
a(1)=A056788(2)-2=3. a(2)=A056788(3)-2=29, associated with k=2, 3, 4, 7, 13, 136,....
f[n_]:=n^n+(n+1)^(n+1)-2; lst={};Do[If[PrimeQ[f[n]],AppendTo[lst,f[n]]], {n,2*5!}];lst
a(4) = 23 because 4^4 + 5^5 = 3381 = 3 * 7^2 * 23.
Join[{2},FactorInteger[Total[#]][[-1,1]]&/@Partition[Table[n^n,{n,30}],2,1]] (* Harvey P. Dale, Apr 21 2018 *)
A056790(n)=vecmax(factor((n+1)^(n+1)+n^n)[,1]) \\ M. F. Hasler, Oct 04 2012
a(5) = 67 because 5^5 + 6^6 = 3125 + 46656 = 67 * 743.
A056187(n)=factor((n+1)^(n+1)+n^n)[1,1] \\ M. F. Hasler, Oct 04 2012
A217435:=n->numtheory[bigomega](n^n+(n-1)^(n-1)): seq(A217435(n), n=1..30); # Wesley Ivan Hurt, Jan 27 2017
Join[{1}, Table[PrimeOmega[n^n + (n-1)^(n-1)], {n, 2, 30}]] (* Amiram Eldar, Feb 24 2020 *) Join[{1},PrimeOmega[Total/@Partition[#^#&/@Range[30],2,1]]] (* Harvey P. Dale, Oct 02 2021 *)
for(n=1,999,print1(bigomega((n-1)^(n-1)+n^n)","))
a(n)=poldisc(x^n-x-1)
Table[Discriminant[x^n + x + 1, x], {n, 0, 100}] (* Artur Jasinski, Oct 12 2007 *)
a(n) = poldisc(x^n+x+1); \\ Michel Marcus, Aug 28 2020
2^2+3^3+6=37.
f[n_]:=n^n+(n+1)^(n+1)+6; lst={};Do[If[PrimeQ[f[n]],AppendTo[lst,f[n]]], {n,2*5!}];lst Select[Table[n^n+(n+1)^(n+1)+6,{n,500}],PrimeQ] (* Harvey P. Dale, Jan 30 2014 *)
a(1) = 5 because 5^5 + 6^6 = 49781 = 67*743.
for(k=0,40,if(bigomega(k^k+(k+1)^(k+1))==2,print1(k,", ")))
Comments