A382174 Numbers k such that A382173(k) >= k.

5, 6, 10, 14, 25, 30, 50, 125, 150, 250, 625, 750, 1250, 3125, 3750, 6250, 15625, 18750, 31250, 78125

Offset: 1

Author

Amiram Eldar, Mar 17 2025

Keywords

• nonn
• base
• more

Comments

A382173(k) = k for k = 14 and for no other number below 80000.

Examples

			   n | a(n) | A382173(a(n))
   --+------+---------------
   1 |    5 | 6
   2 |    6 | 7
   3 |   10 | 16
   4 |   14 | 14
   5 |   25 | 26
   6 |   30 | 31
   7 |   50 | 80
   8 |  125 | 134
   9 |  150 | 161
  10 |  250 | 412
		

Crossrefs

Cf. A382172, A382173, A382175, A382176.

Programs

Mathematica

q[k_] := Total[RealDigits[1/k, GoldenRatio, A001175[k], -1][[1]]] >= k; Select[Range[1000], q] (* using A001175[n] from A001175 *)