[seqfan] Re: problems with A022920

[Heinz, Alois]

b:= proc(n,i) option remember;
       if i=4 then `if`(n=0, 1, 0)
     else b(n-ithprime(i),i-1)+b(n+ithprime(i),i-1)
       fi
     end;
a:= n-> b(5, n+3);
seq(a(n), n=1..30);

reproduces the terms.

Best regards, Alois

Am 06.08.2015 um 11:57 schrieb Richard J. Mathar:
> I cannot reproduce the terms of http://oeis.org/A022920 .
> Take n=8, there is the solution
> 7  -1 *11 -1 *13 + 1 *17 -1 *19 + 1 *23 + 1 *29 -1 *31
> so a(8)=1.