A152022 Numbers > 1 in A000695 which are not in A152021.

16, 20, 64, 65, 68, 80, 84, 85, 256, 260, 272, 273, 276, 320, 324, 325, 336, 340, 1024, 1025, 1028, 1029, 1040, 1044, 1045, 1088, 1092, 1104, 1105, 1108, 1280, 1281, 1284, 1285, 1296, 1300, 1344, 1345, 1348, 1360, 1364, 1365, 4096, 4097, 4100

Offset

1,1

Links

Table of n, a(n) for n=1..45.

Mathematica

f[n_] := FromDigits[IntegerDigits[n, 2], 4];  s = Array[f, 100, 2]; div[a_, b_] := Divisible[a, b] && a > b; n = 1; s0 = s; While[Length[s] > n, s = Select[s, ! div[#, s[[n]]] &]; n++]; Complement[s0, s] (* Amiram Eldar, Aug 31 2019 *)

Crossrefs

Cf. A000695, A152021.

Sequence in context: A088449 A104010 A102544 * A213241 A219395 A260572

Adjacent sequences: A152019 A152020 A152021 * A152023 A152024 A152025

Keyword

nonn

Author

Vladimir Shevelev, Nov 20 2008

Status

approved