|
%I #24 Mar 13 2023 09:15:21
%S 0,1,2,3,5,10,15,25,75,100,125,355,435,500,1775,2415,3675,5825,9660,
%T 14700,17074,20786,22382,23300,27300,79716,83144,87087,97860,103930,
%U 125460,172105,331275,332576,348348,415720,1325100,1330304,1531980
%N Numbers k that, when expressed in base 4 and then interpreted in base 9, give a multiple of k.
%H Georg Fischer, <a href="/A062925/b062925.txt">Table of n, a(n) for n = 1..53</a> [First 45 terms from Harry J. Smith]
%e 5 in base 4 is 11, which interpreted in base 9 is 10 = 2*5.
%t Join[{0},Select[Range[1540000],Divisible[FromDigits[IntegerDigits[#,4],9],#]&]] (* _Harvey P. Dale_, Sep 03 2021 *)
%o (PARI) select(n->n==0 || fromdigits(digits(n,4), 9) % n == 0, [0..100000]) \\ _Andrew Howroyd_, Jun 28 2018
%Y Cf. A062845, A062846, A062847, A062848, A062849, A062850, A062853, A062864, A062865, A062884, A062889, A062891, A062920, A062921, A062922, A062923, A062928, A062929, A062930, A062931, A062934, A062937, A062939, A062942, A062943, A062944.
%K base,nonn
%O 1,3
%A _Erich Friedman_, Jul 21 2001
%E More terms from _Naohiro Nomoto_, Aug 06 2001
%E Offset changed to 1 by _Georg Fischer_, Mar 13 2023
|
