OFFSET
1,1
COMMENTS
Here a number is called balanced if the sum of digits weighted by their arithmetic distance from the "center" is zero. Palindromes (A029730) are trivially balanced, therefore they are excluded here.
LINKS
Paolo Xausa, Table of n, a(n) for n = 1..10000
MATHEMATICA
A256080Q[k_] := Plus @@ (#*(Range[-#, #] & [(Length[#]-1)/2])) == 0 && !PalindromeQ[#] & [IntegerDigits[k, 16]];
Select[Range[8000], A256080Q] (* Paolo Xausa, Jan 20 2026 *)
PROG
(PARI) is(n, b=16, d=digits(n, b), o=(#d+1)/2)=!(vector(#d, i, i-o)*d~)&&d!=Vecrev(d)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
M. F. Hasler, Mar 14 2015
STATUS
approved
