A046031 -id:A046031 - cp's OEIS frontend

A007284 Horizontally symmetric numbers.

0, 1, 3, 8, 10, 11, 13, 18, 30, 31, 33, 38, 80, 81, 83, 88, 100, 101, 103, 108, 110, 111, 113, 118, 130, 131, 133, 138, 180, 181, 183, 188, 300, 301, 303, 308, 310, 311, 313, 318, 330, 331, 333, 338, 380, 381, 383, 388, 800, 801, 803, 808, 810, 811, 813, 818

Offset: 0

N. J. A. Sloane

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

Indranil Ghosh, Table of n, a(n) for n = 0..50000

Cf. A046031.

allowed = ("0", "1", "3", "8")
def a(n):
    return all(x in allowed for x in str(n))
print([i for i in range(50000) if a(i)])
# Indranil Ghosh, Feb 03 2017

Numbers using only digits 0, 1, 3 and 8.

More terms from Henry Bottomley, Feb 14 2000

A157911 Nonprimes whose digits are all cubes.

Original entry on oeis.org

0, 1, 8, 10, 18, 80, 81, 88, 100, 108, 110, 111, 118, 180, 188, 800, 801, 808, 810, 818, 880, 888, 1000, 1001, 1008, 1010, 1011, 1018, 1080, 1081, 1088, 1100, 1101, 1108, 1110, 1111, 1118, 1180, 1188, 1800, 1808, 1810, 1818, 1880, 1881, 1888, 8000, 8001

Offset: 1

Juri-Stepan Gerasimov, Mar 09 2009

Cube digits are 0, 1 or 8 (i.e., 0=0*0*0, 1=1*1*1 or 8=2*2*2).

Harvey P. Dale, Table of n, a(n) for n = 1..2000

Cf. A000578, A141468.

Select[FromDigits/@Tuples[{0,1,8},5],!PrimeQ[#]&] (* Harvey P. Dale, Apr 05 2025 *)

A046031 SET-MINUS A000040. [R. J. Mathar, Mar 17 2009]

Numbers in the range 1100 to 1188 added by R. J. Mathar, Mar 17 2009

A321881 Numbers whose sum and product of digits are cubes.

Original entry on oeis.org

0, 1, 8, 10, 80, 100, 107, 170, 206, 260, 305, 350, 404, 440, 503, 530, 602, 620, 701, 710, 800, 999, 1000, 1007, 1016, 1025, 1034, 1043, 1052, 1061, 1070, 1106, 1124, 1142, 1160, 1205, 1214, 1241, 1250, 1304, 1340, 1403, 1412, 1421, 1430, 1502, 1520, 1601, 1610, 1700

Offset: 1

Enrique Navarrete, Nov 20 2018

The first numbers in the sequence that are cubes themselves are 0,1,8,1000,8000.
a(22)=999 is the only term up to n=120 related to the cube 27 (the previous ones relate to 0,1,8).
Also, a(22)=999 is the first term that has more than one digit and consists of a single repeated digit; the next ones are 11111111 and 333333333.

			93111111111111111 (15 ones) is in the sequence since the sum and the product of the digits is 27 (a cube).
333 is not in the sequence since the product of the digits is 27 but the sum is 9 (not a cube).

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

Cf. A007953, A046031, A062398, A070276, A059094, A237767.

[n:n in [0..2000]| IsPower((&+Intseq(n)), 3) and IsPower((&*Intseq(n)), 3)] // Marius A. Burtea, Jan 21 2019

filter:= proc(n) local L;
  L:= convert(n,base,10);
  simplify(convert(L,`+`)^(1/3))::integer and
  simplify(convert(L,`*`)^(1/3))::integer;
end proc:
select(filter, [$0..1000]); # Robert Israel, Jan 21 2019

cubeQ[n_] := IntegerQ[Surd[n, 3]]; aQ[n_] := cubeQ[Plus @@ IntegerDigits[n]] &&
cubeQ[Times @@ IntegerDigits[n]]; Select[Range[0, 3000], aQ] (* Amiram Eldar, Nov 20 2018 *)

isok(n) = my(d=digits(n)); ispower(vecsum(d), 3) && ispower(vecprod(d), 3); \\ Michel Marcus, Nov 29 2018

A019545 Cubes whose digits are cubes.

Original entry on oeis.org

0, 1, 8, 1000, 8000, 1000000, 8000000, 1000000000, 8000000000, 1000000000000, 8000000000000, 1000000000000000, 8000000000000000, 1000000000000000000, 8000000000000000000, 1000000000000000000000

Offset: 1

R. Muller

Is a(n) = 1000*a(n-2) for n > 3? - Charles R Greathouse IV, Sep 20 2012

Subsequence of A046031. - Michel Marcus, May 24 2014

Sylvester Smith, A Set of Conjectures on Smarandache Sequences, Bulletin of Pure and Applied Sciences, (Bombay, India), Vol. 15 E (No. 1), 1996, pp. 101-107.
Eric Weisstein's World of Mathematics, Smarandache Sequences

Cf. A046031.

Join[{0},Select[FromDigits/@(Flatten[Table[PadRight[{d},n,0],{n,30},{d,{1,8}}],1]),IntegerQ[Surd[#,3]]&]] (* Harvey P. Dale, Dec 03 2021 *)

cp's OEIS Frontend

A007284 Horizontally symmetric numbers.

Views

Author

Keywords

References

Links

Crossrefs

Programs

Python

Formula

Extensions

A157911 Nonprimes whose digits are all cubes.

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Mathematica

Formula

Extensions

A321881 Numbers whose sum and product of digits are cubes.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Magma

Maple

Mathematica

PARI

A019545 Cubes whose digits are cubes.

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Mathematica