|
%I #9 Nov 30 2023 16:25:10
%S 9,7,5,3,1,1,3,5,7,9,79,77,75,73,71,69,67,65,63,61,59,57,55,53,51,49,
%T 47,45,43,41,39,37,35,33,31,29,27,25,23,21,19,17,15,13,11,9,7,5,3,1,1,
%U 3,5,7,9,11,13,15,17,19,21,23,25,27,29,31,33,35,37,39,41,43,45,47,49,51,53
%N Absolute difference between n and its 9's complement.
%t a[n_]:=Abs[n-(10^IntegerLength[n]-1-n)]; Join[{9},Array[a,76]] (* _Stefano Spezia_, Nov 30 2023 *)
%K base,easy,nonn
%O 0,1
%A _Amarnath Murthy_, Jul 06 2005
%E More terms from _Joshua Zucker_, May 03 2006
%E Offset changed by _Georg Fischer_, Nov 30 2023
|
