|
%I #11 Nov 29 2022 12:52:31
%S 2,7,11,25,29,52,65,101,133,205,205,254,425,502,641,785,925,1001,1258,
%T 2005,2225,2504,3157,3445,4025,5002,6266,6325,8125,10001,12508,15689,
%U 16265,16625,20005,22025,25004,31282,35125,40025,50002,62516
%N Primitive sliding numbers (excludes multiples of 10): totals, including repetitions, of sums r + s, r >= s, such that 1/r + 1/s = (r + s)/10^k for some k >= 0.
%C See A103182 for further information.
%H Michael De Vlieger, <a href="/A103184/b103184.txt">Table of n, a(n) for n = 1..10563</a> (all terms less than 2*sqrt(10^151))
%H Michael De Vlieger, <a href="/A103184/a103184.png">Plot of digits of a(n)</a>, n = 1..2000, showing zeros in white and nonzero digits in black, 10X horizontal exaggeration.
%t nn = 8; f[n_] := Transpose@ {Reverse@ #[[1 ;; Ceiling[Length[#]/2]]], #[[-Ceiling[Length[#]/2] ;; -1]]} &@ Divisors[10^n]; TakeWhile[Sort@ Flatten@ Table[Select[Total /@ f[k], ! Divisible[#, 10] &], {k, 0, nn}], # < 2 Sqrt[10^(nn + 1)] &]] (* _Michael De Vlieger_, Nov 29 2022 *)
%Y Cf. A103182, A358703.
%K nonn
%O 1,1
%A _Eric Angelini_, Mar 18 2005
%E More terms from _Kerry Mitchell_, Mar 09 2005
%E Name edited by _Peter Munn_, Nov 27 2022
|
