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. Obviously, all palindromic numbers are balanced; cf. A016041 for base-2 palindromic primes.
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
MAPLE
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 isprime(n) and L <> ListTools:-Reverse(L)
end proc: select(filter, [seq(i, i=3..20000, 2)]); # Robert Israel, May 29 2018
PROG
(PARI) is(n, b=2, d=digits(n, b), o=(#d+1)/2)=!(vector(#d, i, i-o)*d~)&&d!=Vecrev(d)&&isprime(n)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
M. F. Hasler, Mar 14 2015
STATUS
approved