OFFSET
0,3
COMMENTS
Up to 10^4, resp. 10^5, there are 5824, resp. 59316, positive terms. All terms from a(1) to a(11111) are nonzero: see A076164 for indices of zeros.
LINKS
Robert Israel, Table of n, a(n) for n = 0..10000
MAPLE
f:= proc(n) local t;
add(t^2*(-1)^(t+1), t=convert(n, base, 10))
end proc:
map(f, [$0..100]); # Robert Israel, Mar 17 2026
PROG
(PARI) A303269(n)=-vecsum(apply(d->d^2*(-1)^d, digits(n)))
CROSSREFS
KEYWORD
sign,base
AUTHOR
M. F. Hasler, May 18 2018
STATUS
approved
