|
%I #35 Jul 10 2022 11:36:06
%S 13,19,25,31,37,43,55,61,67,73,79,85,91,103,109,115,121,127,133,151,
%T 157,163,169,175,199,205,211,217,247,253,259,295,301,349,355,361,367,
%U 373,379,385,397,403,409,415,421,427,445,451,457,463,469,493,499,505
%N Numbers whose base-7 sum of digits is 7.
%C All of the entries are odd.
%C Subsequence of A016921. - _Michel Marcus_, Sep 03 2013
%C In general, the set of numbers with sum of base-b digits equal to b is a subset of { (b-1)*k + 1; k = 2, 3, 4, ... }. - _M. F. Hasler_, Dec 23 2016
%H Michael S. Branicky, <a href="/A227092/b227092.txt">Table of n, a(n) for n = 1..10000</a>
%e The 7-ary expansion of 13 is (1,6), which has sum of digits 7.
%e The 7-ary expansion of 103 is (2,0,5), which has sum of digits 7.
%e 10 is not on the list since the 7-ary expansion of 10 is (1,3), which has sum of digits 4 not 7.
%t Select[Range[600],Total[IntegerDigits[#,7]]==7&] (* _Harvey P. Dale_, Aug 18 2014 *)
%o (Sage) [i for i in [0..1000] if sum(Integer(i).digits(base=7))==7]
%o (PARI) select( is(n)=sumdigits(n,7)==7, [1..999]) \\ _M. F. Hasler_, Dec 23 2016
%o (Python)
%o agen = A226636gen(sod=7, base=7) # generator of terms using code in A226636
%o print([next(agen) for n in range(1, 55)]) # _Michael S. Branicky_, Jul 10 2022
%Y Cf. A018900, A187813.
%Y Cf. A226636 (b = 3), A226969 (b = 4), A227062 (b = 5), A227080 (b = 6), A227092 (b = 7), A227095 (b = 8), A227238 (b = 9), A052224 (b = 10).
%K nonn,base
%O 1,1
%A _Tom Edgar_, Sep 01 2013
|
