This site is supported by donations to The OEIS Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A008469 a(n) = n OR n^3 (applied to ternary expansions). 3
 1, 8, 30, 67, 125, 222, 349, 512, 738, 1009, 1340, 1740, 2200, 2744, 3390, 4102, 4913, 5850, 6877, 8018, 9282, 10660, 12176, 13848, 15631, 17576, 19710, 21979, 24416, 27003, 29794, 32768, 35943, 39337, 42902, 46692, 50662, 54881, 59331, 64030, 68921 (list; graph; refs; listen; history; text; internal format)
 OFFSET 1,2 LINKS Alois P. Heinz, Table of n, a(n) for n = 1..10000 MAPLE a:= proc(n) option remember; local g, h, i, r;       g, h, r:= n, n^3, 0; for i from 0 while h>0 do       r:= r + 3^i * max(irem(g, 3, 'g'), irem(h, 3, 'h')) od; r     end: seq(a(n), n=1..140);  # Alois P. Heinz, Mar 29 2018 MATHEMATICA (* program should not be used to extend this sequence *) b=3; d=12; Mb=Array[ b^(d-#)&, d ]; Map[ Plus@@(Mb*#)&, Array[ Max /@ Transpose[ {IntegerDigits[ #, b, d ], IntegerDigits[ #^3, b, d ]} ]&, 80 ] ] CROSSREFS Cf. A007745, A008467, A008468. Sequence in context: A071931 A074670 A092277 * A299279 A184323 A004639 Adjacent sequences:  A008466 A008467 A008468 * A008470 A008471 A008472 KEYWORD base,nonn,easy AUTHOR 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 | More pages
The OEIS Community | Maintained by The OEIS Foundation Inc.

Last modified August 19 03:54 EDT 2018. Contains 313843 sequences. (Running on oeis4.)