The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation. Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A249778 a(1)=2; thereafter, a(n) is the smallest number not occurring earlier such that Kronecker(a(k), a(n)) = 1 for the next n indices k = n+1, n+2, ..., 2n. 1
 2, 7, 3, 4, 11, 25, 9, 19, 16, 49, 17, 59, 67, 121, 81, 169, 43, 115, 64, 191, 293, 361, 289, 587, 269, 841, 863, 961, 1031, 1369, 441, 1681, 1867, 2209, 1849, 2809, 65, 529, 256, 643, 3481, 3517, 1639, 1877, 3721, 4489, 5041, 5329, 5591, 6241, 3557, 6889, 7921 (list; graph; refs; listen; history; text; internal format)
 OFFSET 1,1 COMMENTS Kronecker(i,j) is an extension of the Jacobi symbol to all integers. The sequence with the condition Kronecker(a(i), a(n)) = -1/+1 is given by A247665. LINKS EXAMPLE a(1) = 2 because the next term is 7 and k(2,7) = 1; a(2) = 7 because the next two terms are (3,4) => k(7,3) = 1 and k(7,4) = 1; a(3) = 3 because the next three terms are (4,11,25) => k(3,4)= 1, k(3,11) = 1 and k(3,25) = 1. PROG (PARI) m=55; v=vector(m); u=vectorsmall(1000*m); for(n=1, m, for(i=2, 10^9, if(!u[i], for(j=(n+1)\2, n-1, if(kronecker(v[j], i)==-1 || kronecker(v[j], i)==0, next(2))); v[n]= i; u[i]=1; break))); v CROSSREFS Cf. A247665, A249692. Sequence in context: A210516 A257102 A226626 * A326661 A326662 A011049 Adjacent sequences:  A249775 A249776 A249777 * A249779 A249780 A249781 KEYWORD nonn AUTHOR Michel Lagneau, Nov 05 2014 STATUS approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

Last modified June 12 19:42 EDT 2021. Contains 344961 sequences. (Running on oeis4.)