OFFSET
1,1
COMMENTS
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
EXAMPLE
a(1)=1823 is balanced because 1*3/2 + 8*1/2 = 2*1/2 + 3*3/2.
MAPLE
filter:= proc(n) local L, m;
L:= convert(n, base, 10);
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=1001..20000, 2)]); # Robert Israel, May 29 2018
PROG
(PARI) is(n, d=digits(n), o=(#d+1)/2)=!(vector(#d, i, i-o)*d~)&&d!=Vecrev(d)&&isprime(n)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Eric Angelini and M. F. Hasler, Mar 14 2015
STATUS
approved