A007094 -id:A007094 - cp's OEIS frontend

A004662 Powers of 3 written in base 8.

1, 3, 11, 33, 121, 363, 1331, 4213, 14641, 46343, 163251, 531773, 2015761, 6051723, 22175571, 66571153, 244153501, 754502703, 2705710511, 10521531733, 31765015621, 115737051263, 351635174031

Offset: 0

N. J. A. Sloane

Vincenzo Librandi, Table of n, a(n) for n = 0..1000

Cf. A000244 (powers of 3), A007094 (numbers in base 8).

[Seqint(Intseq(3^n,8)): n in [0..50]]; // G. C. Greubel, Oct 12 2018

Table[FromDigits[IntegerDigits[3^n, 8]], {n, 0, 30}] (* Vincenzo Librandi, Jun 07 2013 *)

vector(50, n, n--; fromdigits(digits(3^n, 8))) \\ G. C. Greubel, Oct 12 2018

A008558 Repeatedly convert from decimal to octal.

Original entry on oeis.org

9, 11, 13, 15, 17, 21, 25, 31, 37, 45, 55, 67, 103, 147, 223, 337, 521, 1011, 1763, 3343, 6417, 14421, 34125, 102515, 310163, 1135623, 4252007, 20160547, 114720043, 665476453, 4752456545, 43321135541, 502611010665, 7240574662151, 151272370273007

Offset: 1

sbv(AT)VNET.IBM.COM (Scott Vetter), msvetter(AT)eng.xyplex.com (Mark Vetter)

Cf. A007094.

NestList[FromDigits[IntegerDigits[#,8]]&,9,40] (* Harvey P. Dale, Apr 09 2012 *)

def aupton(terms):
    alst = [9]
    for n in range(2, terms+1): alst.append(int(oct(alst[-1])[2:]))
    return alst
print(aupton(35)) # Michael S. Branicky, Sep 11 2021

A023073 Positive numbers k such that k and 2*k are anagrams in base 8 (written in base 8).

Original entry on oeis.org

25, 250, 275, 1042, 1204, 1463, 2041, 2104, 2500, 2525, 2750, 2775, 3146, 3567, 3657, 10042, 10204, 10402, 10420, 10742, 12004, 12040, 12074, 12245, 12452, 14063, 14306, 14603, 14630, 14637, 14736, 14763, 16043, 16304, 16347, 17346, 17463, 20041, 20104

Offset: 1

David W. Wilson

Amiram Eldar, Table of n, a(n) for n = 1..10000

Cf. A007094.

FromDigits[IntegerDigits[#, 8]] & /@ Select[Range[30000], SameQ @@ Sort /@ IntegerDigits[{#, 2*#}, 8] &] (* Amiram Eldar, Aug 07 2025 *)

A023074 Positive numbers k such that k and 3*k are anagrams in base 8 (written in base 8).

Original entry on oeis.org

1463, 1562, 2156, 14630, 14763, 15404, 15602, 15620, 15762, 17562, 20156, 21560, 21576, 21756, 23736, 103154, 103262, 104153, 115304, 115403, 120326, 123357, 143562, 146300, 147630, 147763, 153041, 153104, 153705, 154004, 154031, 154040

Offset: 1

David W. Wilson

Amiram Eldar, Table of n, a(n) for n = 1..10000

Cf. A007094.

FromDigits[IntegerDigits[#, 8]] & /@ Select[Range[100000], SameQ @@ Sort /@ IntegerDigits[{#, 3*#}, 8] &] (* Amiram Eldar, Aug 07 2025 *)

A023075 Positive numbers k such that k and 4*k are anagrams in base 8 (written in base 8).

Original entry on oeis.org

1024, 1042, 1463, 10024, 10042, 10204, 10240, 10346, 10402, 10420, 10634, 12245, 12425, 14063, 14306, 14367, 14603, 14630, 14637, 14763, 16347, 16743, 17024, 17042, 17463, 100024, 100042, 100204, 100240, 100346, 100402, 100420, 100634, 102004

Offset: 1

David W. Wilson

Robert Israel, Table of n, a(n) for n = 1..10000

Cf. A007094.

filter:= proc(n)
  sort(convert(n,base,8))=sort(convert(4*n,base,8))
end proc:
g:= proc(n) local L; L:= convert(n,base,8);
add(L[i]*10^(i-1),i=1..nops(L))
end proc:
map(g, select(filter, [seq(seq(i,i=8^j .. 2*8^j-1),j=1..5)])); # Robert Israel, Dec 25 2019

FromDigits[IntegerDigits[#, 8]] & /@ Select[Range[50000], SameQ @@ Sort /@ IntegerDigits[{#, 4*#}, 8] &] (* Amiram Eldar, Aug 07 2025 *)

A023076 Positive numbers k such that k and 5*k are anagrams in base 8 (written in base 8).

Original entry on oeis.org

1015, 1166, 1337, 10015, 10150, 11165, 11651, 11660, 11766, 12666, 13370, 13377, 100015, 100150, 101165, 101500, 101525, 101534, 102515, 105332, 111650, 111765, 112665, 116402, 116501, 116510, 116526, 116600, 117651, 117660, 117766, 120164

Offset: 1

David W. Wilson

Amiram Eldar, Table of n, a(n) for n = 1..10000

Cf. A007094.

FromDigits[IntegerDigits[#, 8]] & /@ Select[Range[100000], SameQ @@ Sort /@ IntegerDigits[{#, 5*#}, 8] &] (* Amiram Eldar, Aug 07 2025 *)

A023077 Positive numbers k such that k and 6*k are anagrams in base 8 (written in base 8).

Original entry on oeis.org

101426, 114276, 114627, 1001426, 1014026, 1014260, 1026014, 1026615, 1054614, 1061454, 1064127, 1065432, 1140276, 1140627, 1142760, 1142776, 1145476, 1146270, 1146277, 1147546, 1162675, 1202547, 1234567, 10001426, 10014026, 10014260

Offset: 1

David W. Wilson

Amiram Eldar, Table of n, a(n) for n = 1..10000

Cf. A007094.

FromDigits[IntegerDigits[#,8]]&/@Select[Range[3*10^6],Sort[ IntegerDigits[ #,8]] == Sort[IntegerDigits[6#,8]]&] (* Harvey P. Dale, Dec 31 2015 *)

A023078 Positive numbers k such that k and 7*k are anagrams in base 8 (written in base 8).

Original entry on oeis.org

1067, 10067, 10337, 10670, 10677, 10767, 100067, 100337, 100670, 100677, 100767, 103370, 103377, 105573, 105672, 106700, 106770, 106777, 107670, 107677, 107767, 1000067, 1000337, 1000670, 1000677, 1000767, 1003370, 1003377, 1005573, 1005672

Offset: 1

David W. Wilson

Amiram Eldar, Table of n, a(n) for n = 1..10000

Cf. A007094.

FromDigits[IntegerDigits[#, 8]] & /@ Select[Range[100000], SameQ @@ Sort /@ IntegerDigits[{#, 7*#}, 8] &] (* Amiram Eldar, Aug 07 2025 *)

A029453 Numbers k that divide the (right) concatenation of all numbers <= k written in base 8 (most significant digit on left).

Original entry on oeis.org

1, 2, 4, 6, 7, 8, 12, 13, 14, 15, 16, 21, 24, 28, 32, 35, 39, 42, 48, 49, 56, 64, 70, 98, 106, 112, 128, 147, 164, 196, 224, 231, 256, 289, 392, 448, 490, 512, 545, 560, 608, 640, 665, 688, 784, 872, 889, 896, 980, 1024, 1064, 1120, 1280, 1520, 1526, 1568

Offset: 1

Olivier Gérard

Robert Price, Table of n, a(n) for n = 1..98

Cf. A007094.

Cf. A029447-A029470, A029471-A029494, A029495-A029518, A029519-A029542, A061931-A061954, A061955-A061978.

b = 8; c = {}; Select[Range[10^5], Divisible[FromDigits[c = Join[c, IntegerDigits[#, b]], b], #] &] (* Robert Price, Mar 11 2020 *)

A031960 Numbers with exactly three distinct base-8 digits.

Original entry on oeis.org

66, 67, 68, 69, 70, 71, 80, 83, 84, 85, 86, 87, 88, 90, 92, 93, 94, 95, 96, 98, 99, 101, 102, 103, 104, 106, 107, 108, 110, 111, 112, 114, 115, 116, 117, 119, 120, 122, 123, 124, 125, 126, 129, 131, 132, 133, 134, 135, 136, 139, 140

Offset: 1

Clark Kimberling

Index entries for 2-automatic sequences.

Cf. A007094.

dd8Q[n_]:=Length[Union[IntegerDigits[n,8]]]==3; Select[Range[200],dd8Q] (* Harvey P. Dale, Nov 10 2013 *)

is(n)=#Set(digits(n,8))==3 \\ Charles R Greathouse IV, Feb 15 2017

cp's OEIS Frontend

A004662 Powers of 3 written in base 8.

Views

Author

Keywords

Links

Crossrefs

Programs

Magma

Mathematica

PARI

A008558 Repeatedly convert from decimal to octal.

Views

Author

Keywords

Crossrefs

Programs

Mathematica

Python

A023073 Positive numbers k such that k and 2*k are anagrams in base 8 (written in base 8).

Views

Author

Keywords

Links

Crossrefs

Programs

Mathematica

A023074 Positive numbers k such that k and 3*k are anagrams in base 8 (written in base 8).

Views

Author

Keywords

Links

Crossrefs

Programs

Mathematica

A023075 Positive numbers k such that k and 4*k are anagrams in base 8 (written in base 8).

Views

Author

Keywords

Links

Crossrefs

Programs

Maple

Mathematica

A023076 Positive numbers k such that k and 5*k are anagrams in base 8 (written in base 8).

Views

Author

Keywords

Links

Crossrefs

Programs

Mathematica

A023077 Positive numbers k such that k and 6*k are anagrams in base 8 (written in base 8).

Views

Author

Keywords

Links

Crossrefs

Programs

Mathematica

A023078 Positive numbers k such that k and 7*k are anagrams in base 8 (written in base 8).

Views

Author

Keywords

Links

Crossrefs

Programs

Mathematica

A029453 Numbers k that divide the (right) concatenation of all numbers <= k written in base 8 (most significant digit on left).

Views

Author

Keywords

Links

Crossrefs

Programs

Mathematica

A031960 Numbers with exactly three distinct base-8 digits.

Views

Author

Keywords