A374188 Array read by ascending antidiagonals: b is a term of row A(a) if and only if K(a/b) != K(A374157(b)/a), where K denotes the Kronecker symbol (A372728), and a = 4*n - 1 for some n >= 1.
2, 2, 10, 2, 10, 26, 2, 10, 12, 28, 2, 26, 12, 18, 34, 2, 10, 28, 18, 24, 44, 2, 10, 12, 34, 24, 26, 50, 2, 10, 12, 18, 44, 26, 34, 56, 2, 10, 26, 18, 24, 56, 28, 44, 58, 2, 12, 12, 28, 24, 26, 58, 34, 48, 74, 2, 10, 18, 18, 34, 26, 28, 74, 42, 50, 76
Offset: 1
Examples
[n] [ a] b ... [1] [ 3] 2, 10, 26, 28, 34, 44, 50, 56, 58, 74, 76, 82, ... A374180 [2] [ 7] 2, 10, 12, 18, 24, 26, 34, 44, 48, 50, 58, 60, ... A374181 [3] [11] 2, 10, 12, 18, 24, 26, 28, 34, 42, 48, 50, 56, ... A374182 [4] [15] 2, 26, 28, 34, 44, 56, 58, 74, 76, 82, 88, 92, ... A374183 [5] [19] 2, 10, 12, 18, 24, 26, 28, 34, 42, 44, 48, 50, ... A374184 [6] [23] 2, 10, 12, 18, 24, 26, 28, 34, 42, 44, 48, 50, ... [7] [27] 2, 10, 26, 28, 34, 44, 50, 56, 58, 74, 76, 82, ... [8] [31] 2, 10, 12, 18, 24, 26, 28, 34, 42, 44, 48, 50, ...
Crossrefs
Programs
-
Maple
KS := (a, n) -> NumberTheory:-KroneckerSymbol(a, n): A374157 := n -> ifelse(iquo(n, 2)::even, n, -n): A374188_row := (a, len) -> local n; select(n -> (KS(a, n) <> KS(A374157(n), a)), [seq(0..len)]): seq(print(A374188_row(4*m - 1, 350)), m = 1..5);
-
SageMath
def A374157(n): return (-1)**(n // 2)*n def ks(a, n): return kronecker_symbol(a, n) def ksp(a, len): return [n for n in range(len) if ks(a, n) != ks(A374157(n), a)] def A374188_row(n, len): return ksp(4*n - 1, len) for m in range(1, 8): print(A374188_row(m, 100)[:12])
Formula
All terms are even.
Comments