|
%I #18 Oct 14 2018 12:36:51
%S 1,2,0,2,2,4,2,4,2,4,6,2,6,4,2,4,6,6,2,6,4,2,6,4,6,8,4,2,4,2,4,14,4,6,
%T 2,10,2,6,6,4,6,6,2,10,2,4,2,12,12,4,2,4,6,2,10,6,6,6,2,6,4,2,10,14,4,
%U 2,4,14,6,10,2,4,6,8,6,6,4,6,8,4,8,10,2,10,2,6,4,6,8,4,2,4,12,8,4,8,4,6,12
%N Absolute difference between (sum of previous terms) and prime(n) with a(0) = 1 and a(1) = 2.
%C Essentially a duplicate of A001223: equals A001223 with terms 2,0 inserted after the initial one.
%p A181346 := proc(n) option remember; if n <= 1 then return n+1 ; end if; add( procname(i),i=0..n-1)-ithprime(n) ; abs(%) ;end proc:
%p seq(A181346(n),n=0..100) ; # _R. J. Mathar_, Oct 15 2010
%Y Cf. A001223.
%Y Cf. A054541. - _Georg Fischer_, Oct 12 2018
%K nonn,less
%O 0,2
%A _Giovanni Teofilatto_, Oct 14 2010
%E Offset and indexing corrected by _R. J. Mathar_, Oct 15 2010
|
