|
%I #9 Apr 05 2019 05:42:53
%S 6,3,9,2,5,8,1,4,7,0,3,6,2,9,5,8,4,1,0,7,3,6,2,9,5,8,1,4,0,7,3,6,9,2,
%T 5,8,4,1,7,0,6,3,9,2,5,8,4,1,7,3,0,6,2,9,5,8,1,4,0,7,3,6,9,2,5,8,4,1,
%U 7,0,6,3,9,2,5,1,8,4,0,7,3,6,2,9,5,4,8,1,0,7,3,9,6,2,5,8,4,7,1,0,6,3,9,2,5
%N Last digit of A158605(n).
%C The sequence is much more irregular than suggested by a naive investigation of the first few blocks of 10 digits each.
%p read("transforms3") : L := BFILETOLIST("b064413.txt") : L13 := [] : for i from 1 to nops(L) do if op(i,L) mod 13 = 0 then L13 := [op(L13),op(i,L) mod 10 ] ; fi; od: op(1..120,L13) ; # _R. J. Mathar_, Sep 07 2009
%Y Cf. A010879 (final digit), A158605.
%K nonn,base
%O 1,1
%A _Paul Curtz_, Mar 22 2009
%E Edited and extended by _R. J. Mathar_, Sep 07 2009
|
