|
%I #16 Jun 23 2020 08:58:34
%S 2,4,6,6,8,12,10,14,16,12,18,24,14,34,26,16,30,36,18,42,38,12,60,22,
%T 48,38,46,36,60,54,44,36,84,22,60,84,18,78,72,60,38,112,12,96,114,26,
%U 88,92,34,90,138,26,82,98,112,54,170,36,60,168,52,128,52,128,94,108,90,188
%N First differences of Flavius Josephus's sieve.
%C Also run lengths in A100617. - _Reinhard Zumkeller_, Jan 14 2015
%H Klaus Brockhaus, <a href="/A056526/b056526.txt">Table of n, a(n) for n=1..10000</a>
%H <a href="/index/J#Josephus">Index entries for sequences related to the Josephus Problem</a>
%F a(n) = A000960(n+1) - A000960(n).
%e Flavius's sieve starts 1,3,7,13,19,27,39,49 so first differences are 2,4,6,6,8,12,10.
%o (Haskell)
%o a056526 n = a056526_list !! (n-1)
%o a056526_list = zipWith (-) (tail a000960_list) a000960_list
%o -- _Reinhard Zumkeller_, Jan 14 2015
%Y Cf. A000960 for definition, A139363 (records), A139364 (where records occur).
%Y Cf. A100617, A250007.
%K nonn
%O 1,1
%A _Henry Bottomley_, Jun 16 2000
|
