OFFSET
1,1
COMMENTS
Numbers n such that A245212(n) = (n * tau(n)) - Sum_((d<n) | n) (d * tau(d)) < n.
If d are divisors of n then values of sequence A245212(n) are the bending moments at point 0 of static forces of sizes tau(d) operating in places d on the cantilever as the nonnegative number axis of length n with support at point 0 by the schema: A245212(n) = (n * tau(n)) - Sum_((d<n) | n) (d * tau(d)).
LINKS
Jens Kruse Andersen, Table of n, a(n) for n = 1..10000
EXAMPLE
Number 72 is in sequence because A245212(72) = 62 < 72.
PROG
(Magma) [n: n in [1..100000] | (2*(n*(#[d: d in Divisors(n)]))-(&+[d*#([e: e in Divisors(d)]): d in Divisors(n)])) lt n]
CROSSREFS
KEYWORD
nonn
AUTHOR
Jaroslav Krizek, Jul 23 2014
STATUS
approved