A256088 -id:A256088 - cp's OEIS frontend

A256082 Non-palindromic balanced numbers in base 2.

70, 78, 150, 266, 282, 294, 310, 334, 350, 355, 371, 397, 413, 540, 554, 582, 630, 686, 723, 798, 813, 1036, 1042, 1068, 1074, 1098, 1116, 1130, 1148, 1158, 1178, 1190, 1210, 1221, 1238, 1253, 1270, 1302, 1305, 1334, 1337, 1347, 1358, 1379, 1390, 1427, 1438, 1459, 1470, 1483, 1515, 1550, 1557, 1582, 1589, 1613, 1630

Offset: 1

M. F. Hasler, Mar 14 2015

Here a number is called balanced if the sum of digits weighted by their arithmetic distance from the "center" is zero.
This is the binary variant of the base-10 version A256075 invented by Eric Angelini. See A256081 for the primes in this sequence. See A256083 - A256089 and A256080 for variants in other bases.
If n is in the sequence with 2^d < n < 2^(d+1), then 2^(d+2)+2*n+1 is in the sequence, as are n*(2^k+1) for k > d. - Robert Israel, May 29 2018

			a(1) = 70 = 1000110[2] is balanced because 1*3 = 1*1 + 1*2.

Robert Israel, Table of n, a(n) for n = 1..10000

Cf. A256081 (primes), A256083, A256084, A256085, A256086, A256087, A256088, A256089, A256075.

filter:= proc(n) local L,m;
  L:= convert(n,base,2);
  m:= (1+nops(L))/2;
  add(L[i]*(i-m),i=1..nops(L))=0 and L <> ListTools:-Reverse(L)
end proc:
select(filter, [$2..10000]); # Robert Israel, May 29 2018

is(n,b=2,d=digits(n,b),o=(#d+1)/2)=!(vector(#d,i,i-o)*d~)&&d!=Vecrev(d)

A256089 Non-palindromic balanced numbers in base 9.

Original entry on oeis.org

756, 846, 936, 974, 1026, 1064, 1116, 1154, 1206, 1218, 1244, 1308, 1334, 1398, 1424, 1486, 1512, 1576, 1602, 1666, 1692, 1704, 1756, 1794, 1846, 1884, 1936, 1948, 1974, 2038, 2064, 2128, 2154, 2216, 2242, 2306, 2332, 2396, 2422, 2434, 2486, 2524, 2576, 2614, 2666, 2678, 2704, 2768, 2794, 2858, 2884, 2946, 2972

Offset: 1

M. F. Hasler, Mar 14 2015

Here a number is called balanced if the sum of digits weighted by their arithmetic distance from the "center" is zero. Since palindromes (A029955) are trivially balanced, they are excluded here.

This is the base-9 variant of the decimal version A256075 invented by Eric Angelini. See there, and the base-2 version A256082, for further information and examples.

Robert Israel, Table of n, a(n) for n = 1..10000

Cf. A256082 - A256088, A256075, A256080, A029955.

filter:= proc(n) local L, m,i;
  L:= convert(n, base, 9);
  m:= (1+nops(L))/2;
add(L[i]*(i-m), i=1..nops(L))=0  and L <> ListTools:-Reverse(L)
end proc:
select(filter, [$1..10000]); # Robert Israel, Nov 04 2024

is(n,b=9,d=digits(n,b),o=(#d+1)/2)=!(vector(#d,i,i-o)*d~)&&d!=Vecrev(d)

cp's OEIS Frontend

A256082 Non-palindromic balanced numbers in base 2.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Maple

PARI