OFFSET
1,2
COMMENTS
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
MATHEMATICA
f[e_] := Position[Reverse[IntegerDigits[e, 2]], 1] // Flatten; q[n_] := q[n] = UnsameQ @@ Flatten[f /@ FactorInteger[n][[;; , 2]]]; Select[Range[100], q[#] && q[#+1] &]
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(is1 = 0, is2); for(k = 1, kmax, is2 = isA268375(k); if(is1 && is2, print1(k-1, ", ")); is1 = is2); }
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Amiram Eldar, Dec 23 2023
STATUS
approved