login
a(n) is the smallest value of m such that A002378(m), the m-th oblong number, contains exactly n 3's.
10

%I #36 Feb 16 2025 08:32:40

%S 5,36,182,1817,4830,5773,153079,577355,3659694,18366636,182574188,

%T 576484036,1839384036,17701331569,36542213005,485935528988,

%U 1814754484036,5755287250288,5773506159694,182738579159694,230940107675430,1820173984357898,18202838331788627,57475066797119386,182305878493709942

%N a(n) is the smallest value of m such that A002378(m), the m-th oblong number, contains exactly n 3's.

%H Eric Weisstein's World of Mathematics, <a href="https://mathworld.wolfram.com/PronicNumber.html">Pronic Number</a>

%e From _Jesse Sealand_, Oct 05 2019: (Start)

%e a(1) = 5 since A002378(5) = 30;

%e a(2) = 36 since A002378(36) = 1332;

%e a(3) = 182 since A002378(182) = 33306;

%e a(4) = 1817 since A002378(1817) = 3303306, etc.

%e (End)

%t With[{s = 2 Accumulate[Range[0, 10^6]]}, Table[-1 + FirstPosition[s, _?(DigitCount[#, 10, 3] == n &)][[1]], {n, 8}]] (* _Michael De Vlieger_, Oct 05 2019 *)

%Y Cf. A048536, A002378 (oblong numbers).

%Y Cf. A048529, A048531, A048533, A048537, A048539, A048541, A048543, A048545, A048547.

%K nonn,base,changed

%O 1,1

%A _Patrick De Geest_, May 15 1999

%E a(13)-a(16) from _Lars Blomberg_, Jun 10 2011

%E Name edited by _Jesse Sealand_, Oct 05 2019

%E a(17) from _Giovanni Resta_, Oct 09 2019

%E a(18)-a(25) from _Max Alekseyev_, Jul 25 2024