login
A368403
Starts of runs of 3 consecutive integers in A268375.
3
1, 2, 3, 7, 11, 16, 17, 18, 27, 43, 47, 48, 79, 97, 147, 162, 171, 191, 241, 242, 243, 331, 367, 387, 431, 507, 547, 603, 907, 1051, 1249, 1250, 1619, 1871, 2267, 2347, 2523, 2799, 3411, 3643, 3987, 4049, 4050, 4111, 4175, 4203, 4491, 4923, 5119, 5391, 5407, 6091
OFFSET
1,2
COMMENTS
Analogous to A342029, as A268375 is analogous to A130091.
LINKS
MATHEMATICA
f[e_] := Position[Reverse[IntegerDigits[e, 2]], 1] // Flatten; q[n_] := UnsameQ @@ Flatten[f /@ FactorInteger[n][[;; , 2]]]; q[0] = False; seq[kmax_] := Module[{m = 3, s = {}, v}, v = q /@ Range[0, m - 1]; Do[v = Join[Rest[v], {q[k]}]; If[And @@ v, AppendTo[s, k - m + 1]], {k, m, kmax}]; s]; seq[6000]
PROG
(PARI) isA268375(n) = {my(e = factor(n)[, 2], b = 0); for(i=1, #e, b = bitor(b, e[i])); n == 1 || b == vecsum(e); }
lista(kmax) = {my(tri = vector(3, i, isA268375(i)), k = 4); while(k < kmax, if(vecsum(tri) == 3, print1(k-3, ", ")); tri = concat(vecextract(tri, "^1"), isA268375(k)); k++); }
CROSSREFS
Subsequence of A130091, A268375, A342029 and A368402.
A368404 is a subsequence.
Sequence in context: A180516 A100963 A342029 * A361857 A197636 A347756
KEYWORD
nonn,base
AUTHOR
Amiram Eldar, Dec 23 2023
STATUS
approved