

A007093


Numbers in base 7.
(Formerly M0511)


38



0, 1, 2, 3, 4, 5, 6, 10, 11, 12, 13, 14, 15, 16, 20, 21, 22, 23, 24, 25, 26, 30, 31, 32, 33, 34, 35, 36, 40, 41, 42, 43, 44, 45, 46, 50, 51, 52, 53, 54, 55, 56, 60, 61, 62, 63, 64, 65, 66, 100, 101, 102, 103, 104, 105, 106, 110, 111, 112, 113, 114, 115, 116, 120
(list;
graph;
refs;
listen;
history;
text;
internal format)



OFFSET

0,3


REFERENCES

N. J. A. Sloane and Simon Plouffe, The Encyclopedia of Integer Sequences, Academic Press, 1995 (includes this sequence).


LINKS

Nathaniel Johnston, Table of n, a(n) for n = 0..10000
R. G. Wilson, V, Letter to N. J. A. Sloane, Sep. 1992
Index entries for 10automatic sequences.


FORMULA

a(0) = 0, a(n) = 10*a(n/7) if n==0 (mod 7), a(n) = a(n1)+1 otherwise.  Benoit Cloitre, Dec 22 2002


MAPLE

A007093 := proc(n) local l: if(n=0)then return 0: fi: l:=convert(n, base, 7): return op(convert(l, base, 10, 10^nops(l))): end: seq(A007093(n), n=0..63); # Nathaniel Johnston, May 06 2011


MATHEMATICA

Table[ FromDigits[ IntegerDigits[n, 7]], {n, 0, 66}]


PROG

(PARI) a(n)=if(n<1, 0, if(n%7, a(n1)+1, 10*a(n/7)))
(PARI) a(n) = fromdigits(digits(n, 7)); \\ Michel Marcus, Aug 12 2018


CROSSREFS

Cf. A000042, A007088, A007089, A007090, A007091, A007092, A007094, A007095.
Sequence in context: A143693 A143694 A037476 * A285469 A302706 A047423
Adjacent sequences: A007090 A007091 A007092 * A007094 A007095 A007096


KEYWORD

nonn,easy,base


AUTHOR

N. J. A. Sloane, Robert G. Wilson v


STATUS

approved



