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

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A068505 Decimal representation of n interpreted in base b+1, where b=A054055(n) is the largest digit in decimal representation of n. 8
1, 2, 3, 4, 5, 6, 7, 8, 9, 2, 3, 5, 7, 9, 11, 13, 15, 17, 19, 6, 7, 8, 11, 14, 17, 20, 23, 26, 29, 12, 13, 14, 15, 19, 23, 27, 31, 35, 39, 20, 21, 22, 23, 24, 29, 34, 39, 44, 49, 30, 31, 32, 33, 34, 35, 41, 47, 53, 59, 42, 43, 44, 45, 46, 47, 48, 55, 62, 69, 56, 57, 58, 59, 60, 61 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,2

COMMENTS

a(n) = n iff n < 10 OR n is a "9ish number": a(A011539(n)) = A011539(n). - Reinhard Zumkeller, Dec 29 2011

LINKS

R. Zumkeller, Table of n, a(n) for n = 1..11000

EXAMPLE

a(20)=2*3^1+0*1=6, a(21)=2*3^1+1*1=7, a(22)=2*3^1+2*1=8,

a(23)=2*4^1+3*1=11, a(24)=2*5^1+4*1=14, a(25)=2*6^1+5*1=17,

a(26)=2*7^1+6*1=20, a(27)=2*8^1+7*1=23, a(28)=2*9^1+8*1=26,

a(29)=2*10^1+9*1=29, a(30)=3*4^1+0*1=12, a(31)=3*4^1+1*1=13.

MAPLE

f:= proc(n) local b, L, i;

L:= convert(n, base, 10);

b:= max(L);

add(L[i]*(b+1)^(i-1), i=1..nops(L));

end proc:

map(f, [$1..100]); # Robert Israel, Feb 02 2016

MATHEMATICA

a[n_] := (id = IntegerDigits[n] // Reverse; b = Max[id]+1; id.b^Range[0, Length[id]-1]); Table[a[n], {n, 1, 75}] (* Jean-François Alcover, May 15 2013 *)

Table[FromDigits[IntegerDigits[n], Max[IntegerDigits[n]+1]], {n, 80}] (* Harvey P. Dale, Dec 02 2015 *)

PROG

(Haskell)

a068505 n = foldr (\d v -> v * b + d) 0 dds where

b = maximum dds + 1

dds = a031298_row n

-- Reinhard Zumkeller, Feb 17 2013, Dec 29 2011

(PARI) a(n)=my(d = digits(n), b = vecmax(d)); subst(Pol(d), x, b+1); \\ Michel Marcus, Feb 12 2016

CROSSREFS

Cf. A031298.

Sequence in context: A081594 A038506 A091047 * A080719 A049105 A125959

Adjacent sequences:  A068502 A068503 A068504 * A068506 A068507 A068508

KEYWORD

nonn,base,nice,look

AUTHOR

Reinhard Zumkeller, Mar 11 2002, Feb 23 2008

EXTENSIONS

Definition clarified and comment corrected by Martin Büttner, Feb 02 2016

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 October 23 22:58 EDT 2019. Contains 328379 sequences. (Running on oeis4.)