login
This site is supported by donations to The OEIS Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A066460 a(n) is the least positive integer k such that k is a repdigit number in exactly n different bases B, where 1<B<k. 5
1, 3, 7, 15, 24, 40, 60, 144, 120, 180, 336, 420, 360, 900, 960, 720, 840, 1260, 1440, 2340, 1680, 2880, 3600, 8190, 2520, 9072, 9900, 6300, 6720, 20592, 5040, 10920, 7560, 31320, 98040, 25920, 10080, 21420, 177156, 74256, 15120, 28560, 20160 (list; graph; refs; listen; history; text; internal format)
OFFSET

0,2

COMMENTS

All numbers n are repdigit in base 1 and in all bases greater than n, therefore we restrict the sequence to bases between 1 and n exclusively.

LINKS

Giovanni Resta, Table of n, a(n) for n = 0..100

EXAMPLE

a(4) = 24 since 24_10 = 44_5 = 33_7 = 22_11 = 11_23.

MATHEMATICA

rp[n_, b_] := 1 == Length@ Union@ IntegerDigits[n, b]; c[1] = c[2] = 0; c[n_] := c[n] = Block[{q = Floor@Sqrt@n}, 1 + Length@ Select[Range[2, q], rp[n, #] &] + Length@ Select[Divisors[n] - 1, q < # <= n/2 && rp[n, #] &]]; a[n_] := Block[{k = 1}, While[c[k] != n, k++]; k]; Table[a[j], {j, 0, 30}] (* Giovanni Resta, Apr 07 2017 *)

CROSSREFS

Cf. A066044.

Sequence in context: A283607 A001213 A066044 * A114221 A289828 A226471

Adjacent sequences:  A066457 A066458 A066459 * A066461 A066462 A066463

KEYWORD

nonn

AUTHOR

Robert G. Wilson v, Jan 02 2002

EXTENSIONS

Edited by John W. Layman, Jan 16 2002

a(0) changed to 1 by Giovanni Resta, Apr 07 2017

STATUS

approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified May 25 19:13 EDT 2019. Contains 323576 sequences. (Running on oeis4.)