A289629 Smallest positive k such that (k+1)^n + (-k)^n is divisible by a square greater than 1.
3, 7, 113, 14, 3, 23, 19, 7, 1, 2, 113, 75, 3, 7, 765, 36, 3, 2476, 87, 1, 3, 165, 19, 14, 2, 7, 28, 149, 1, 2972, 151, 2, 3, 14, 113, 977, 3, 5, 19, 34, 3, 135, 113, 7, 3, 136, 335, 23, 1, 7, 113, 11, 3, 2, 19, 2, 3
Offset: 2
Examples
a(2) = 3 because (1+1)^2 + (-1)^2 = 5 is squarefree, (2+1)^2 + (-2)^2 = 13 is squarefree, and (3+1)^2 + (-3)^2 = 25 is divisible by 5^2.
Links
- Kevin P. Thompson, Table of n, a(n) for n = 2..150 with unconfirmed terms (term 31 confirmed by _Hugo Pfoertner_ and term 48 confirmed by _Jon E. Schoenfield_ and _Hugo Pfoertner_)
Programs
-
Mathematica
Table[k=1;While[SquareFreeQ[(k+1)^n+(-k)^n],k++];k,{n,2,15}] (* Giorgos Kalogeropoulos, Dec 03 2021 *)
-
PARI
a(n) = my(k=1); while (issquarefree((k+1)^n + (-k)^n), k++); k; \\ Michel Marcus, Dec 04 2021
Formula
a(2n+1) = A280547(2n+1).
Extensions
Offset corrected; a(16), a(32), a(36), a(44), and a(48) corrected; and a(50)-a(58) added by Kevin P. Thompson, Dec 05 2021.
Comments