A071567 - OEIS

A071567

Smallest k>n such that n^2+n+1 divides k^2+k+1.

4, 4, 9, 16, 25, 36, 49, 64, 16, 100, 30, 144, 169, 196, 225, 100, 289, 324, 361, 400, 441, 484, 102, 576, 67, 121, 729, 784, 230, 410, 961, 485, 1089, 1156, 61, 552, 163, 1444, 485, 1600, 1681, 737, 1849, 893, 372, 571, 840, 1134, 178, 2500, 809, 2704

(list; graph; refs; listen; history; text; internal format)

OFFSET

1,1

LINKS

Harvey P. Dale, Table of n, a(n) for n = 1..1000

MATHEMATICA

Table[Module[{k=n+1, c=n^2+n+1}, While[Mod[k^2+k+1, c]!=0, k++]; k], {n, 60}] (* Harvey P. Dale, Dec 05 2025 *)

PROG

(PARI) for(n=1, 100, s=n+1; while((s^2+s+1)%(n^2+n+1)>0, s++); print1(s, ", "))

CROSSREFS

Sequence in context: A098359 A319435 A226096 * A304990 A263727 A133037

Adjacent sequences: A071564 A071565 A071566 * A071568 A071569 A071570

KEYWORD

easy,nonn

AUTHOR

Benoit Cloitre, May 31 2002

STATUS

approved