|
%I #12 Mar 13 2023 12:14:00
%S 0,1,2,3,4,5,6,51,102,105,153,156,207,210,258,261,312,315,2589,2590,
%T 2601,2753,5354,5355,5506,8108,8259,8260,10861,11013,11025,13614,
%U 13615,13626,13766,13778,16379,16380,16531,33045
%N Numbers k that, when expressed in base 7 and then interpreted in base 10, give a multiple of k.
%C Zero followed by A032549. [From _R. J. Mathar_, Oct 02 2008]
%C There are only 47 terms up to 10 million, the largest of which is 7581525. - _Harvey P. Dale_, Jul 09 2016
%H Georg Fischer, <a href="/A062944/b062944.txt">Table of n, a(n) for n = 1..64</a> [First 47 terms from Harvey P. Dale]
%e 51 in base 7 is 102, which interpreted in base 10 is 102=2*51
%t Join[{0},Select[Range[35000],Divisible[FromDigits[IntegerDigits[ #,7]], #]&]] (* _Harvey P. Dale_, Jul 09 2016 *)
%Y Cf. A062845, A062846, A062847, A062848, A062849, A062850, A062853, A062864, A062865, A062884, A062889, A062891, A062920, A062921, A062922, A062923, A062925, A062928, A062929, A062930, A062931, A062934, A062937, A062939, A062942, A062943.
%K base,nonn
%O 1,3
%A _Erich Friedman_, Jul 21 2001
%E Offset changed to 1 by _Georg Fischer_, Mar 13 2023
|
