OFFSET
1,5
COMMENTS
LINKS
Michael De Vlieger, Table of n, a(n) for n = 1..10635 (rows 1 <= n <= 600, flattened)
Michael De Vlieger, 1024-pixel bitmap plotting (n, T(n,k)) in black, otherwise white including for rows containing 0.
EXAMPLE
Table T(n,k) for 1 <= n <= 16, replacing 0 with "." and 1 with "*", showing terms in row n of this sequence. Rows with no terms are replaced by 0:
1: .
2: . *
3: . . *
4: . * . *
5: . . . . 5
6: . * * * . *
7: . . . . . . 7
8: . * . * . * . *
9: . . * . . * . . *
10: . * . * 5 * . * . *
11: . . . . . . . . . . 11
12: . * * * . * . * * * . *
13: . . . . . . . . . . . . 13
14: . * . * . * 7 * . * . * . *
15: . . * . 5 * . . * 10 . * . . *
16: . * . * . * . * . * . * . * . *
---------------------------------------------------
n\k 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
Hence, row 5 = {5}, row 7 = {7}, row 11 = {11}, row 13 = {13}, row 14 = {7}, row 15 = {5, 10}, and all other rows 1 <= n <= 16 have no terms, thus are assigned 0 by definition.
MATHEMATICA
With[{nn = 45}, Table[If[Length[#] == 0, {0}, #] &@ Select[Array[# Boole[Xor[Or[Mod[#, 2] == Mod[n, 2] == 0, Mod[#, 3] == Mod[n, 3] == 0], GCD[n, #] != 1]] &, n], # > 0 &], {n, nn}]] // Flatten (* Michael De Vlieger, Dec 08 2021 *)
With[{s = Merge[Map[#1 -> #2 & @@ # &, Position[ImageData[#], 0.]], Identity]}, Array[If[KeyExistsQ[s, #], Lookup[s, #], {0}] &, ImageDimensions[#][[-1]]] // Flatten] &@ Import["https://oeis.org/A349298/a349298.png"] (* Generate 1024 rows stored in the bitmap image, Michael De Vlieger, Dec 08 2021 *)
CROSSREFS
KEYWORD
nonn,tabf
AUTHOR
Michael De Vlieger, Nov 13 2021
STATUS
approved