A326389
Non-oblong numbers that are repdigits with length > 2 in exactly three bases.
Original entry on oeis.org
32767, 65535, 67053, 2097151, 4381419, 7174453, 9808617, 13938267, 14348906, 19617234, 21523360, 29425851, 39234468, 43046720, 48686547, 49043085, 58851702, 68660319, 71270178, 78468936, 88277553, 98086170, 107894787, 115174101, 117703404, 134217727, 142540356
Offset: 1
tau(m) = 8 and beta(m) = 6 for m = 32767 with 32767 = R(15)_2 = 77777_8 = (31,31,31)_32.
tau(m) = 12 and beta(m) = 8 for m = 2097151 with 2097151 = R(21)_2 = 7777777_8 = (127,127,127)_128.
tau(m) = 16 and beta(m) = 10 with m = 67053 = (31,31,31)_46 = (21,21,21)_56 = 333_149.
Cf.
A326386 (non-oblongs with tau(m)/2 - 1),
A326387 (non-oblongs with tau(m)/2),
A326388 (non-oblongs with tau(m)/2 + 1), this sequence (non-oblongs with tau(m)/2 + 2),
A326705 (non-oblongs with tau(m)/2 + k, k >=3).
-
isoblong(n) = my(m=sqrtint(n)); m*(m+1)==n; \\ A002378
beta(n) = sum(i=2, n-2, #vecsort(digits(n, i), , 8)==1); \\ A220136
isok(m) = !isprime(m) && !isoblong(m) && (beta(m) == numdiv(m)/2 + 2); \\ Jinyuan Wang, Aug 02 2019
A326706
Numbers m such that beta(m) = tau(m)/2 + k for some k >= 4, where beta(m) is the number of Brazilian representations of m and tau(m) is the number of divisors of m.
Original entry on oeis.org
16777215, 435356467, 1073741823, 68719476735, 1099511627775, 4398046511103, 35184372088831, 281474976710655, 14901161193847656, 18014398509481983
Offset: 1
One example of each type:
1) Non-oblong with beta"(m) = 5; tau(435356467) = 64 and 435356467 = (6^12 - 1)/5 has exactly five Brazilian representations with three digits or more: R(12)_6 = 777777_36 = (43,43,43)_216 = (259,259,259)_1296 = (31,31,31)_3747 and has 31 representations with 2 digits, so beta(435356467) = 36 and k = 4.
2) Oblong with beta"(m) = 6; tau(14901161193847656) = 768 and 14901161193847656 = (5^24 - 1)/4 = 122070312*122070313 is oblong. The six Brazilian representations with three digits or more of this term are R(24)_5 = 666666666666_25 = (31,31,31,31,31,31,31,31)_125 = (156,156,156,156,156)_625, =(3906,3906,3906,3906)_15625 = (97656,97656,97656)_390625 so beta"(14901161193847656) = 6 and beta(61035156) = (tau(61035156)/2 - 2) + 6 = 388 and k = 4.
-
okrepu3(b, target, lim) = {my(k = 3, nb = 0, x); while ((x=(b^k-1)/(b-1)) <= target, if (x==target, nb++); k++); nb; }
dge3(n, d) = {my(nb=0, ndi, limi); for (i=1, #d, ndi = n/d[i]; limi = sqrtint(ndi); for (k=d[i]+1, limi, nb += okrepu3(k, ndi, limi); ); ); nb; }
deq2(n, d) = {my(nb=0, nk); for (k=1, #d\2, nk = (n - d[k])/d[k]; if (nk > d[k], nb++); ); nb; }
beta(n) = {if (n<3, return (0)); my(d=divisors(n)); deq2(n, d) + dge3(n, d) - 1; }
isok(n) = beta(n) - numdiv(n)/2 > = 4; \\ Michel Marcus, Aug 10 2019
Showing 1-2 of 2 results.
Comments