The On-Line Encyclopedia of Integer Sequences (OEIS)

Revision History for A064931 (Bold, blue-underlined text is an addition; faded, red-underlined text is a ~~deletion~~.)
Showing entries 1-10 | older changes

A064931

Numbers m such that the digits of m are also digits of m^3.
(history; published version)

#15 by Hugo Pfoertner at Tue Aug 01 07:31:40 EDT 2023

STATUS

reviewed

approved

#14 by Joerg Arndt at Tue Aug 01 06:57:19 EDT 2023

STATUS

proposed

reviewed

#13 by Michel Marcus at Tue Aug 01 02:35:02 EDT 2023

STATUS

editing

proposed

#12 by Michel Marcus at Tue Aug 01 02:34:27 EDT 2023

NAME

Numbers n m such that the digits of n m are also digits of nm^3.

COMMENTS

Presumably if a digit d appears k times in n, m, then it should appear at least k times in nm^3. - N. J. A. Sloane, Nov 24 2018

STATUS

proposed

editing

#11 by Sean A. Irvine at Tue Aug 01 01:45:23 EDT 2023

STATUS

editing

proposed

#10 by Sean A. Irvine at Tue Aug 01 01:45:15 EDT 2023

CROSSREFS

Cf. A029776.

STATUS

approved

editing

#9 by Harvey P. Dale at Sat Nov 24 18:06:39 EST 2018

STATUS

editing

approved

#8 by Harvey P. Dale at Sat Nov 24 18:06:34 EST 2018

LINKS

Harvey P. Dale, <a href="/A064931/b064931.txt">Table of n, a(n) for n = 1..1000</a>

STATUS

approved

editing

#7 by Harvey P. Dale at Sat Nov 24 18:01:28 EST 2018

STATUS

editing

approved

#6 by Harvey P. Dale at Sat Nov 24 18:01:13 EST 2018

DATA

1, 4, 5, 6, 9, 10, 11, 12, 21, 24, 25, 29, 32, 33, 34, 39, 40, 49, 50, 51, 54, 56, 59, 60, 61, 64, 65, 67, 71, 72, 73, 75, 76, 90, 97, 99, 100, 101, 102, 106, 109, 110, 114, 119, 120, 124, 125, 129, 137, 153, 176, 201, 202, 210, 212, 224, 228, 231, 233, 236, 238, 245, 249, 279, 345, 346, 347, 368, 389, 467, 689, 1235, 1236, 1238, 1249, 1256, 1258, 1345, 1368, 1459, 1467, 1567, 1679, 1689, 2349, 2359, 2457, 2458, 2589, 3459, 3467

MATHEMATICA

Do[a = IntegerDigits[n^3]; b = IntegerDigits[n]; If[Intersection[a, b] == b, Print[n]], {n, 1, 10^4}]

Select[Range[400], Min[DigitCount[#^3]-DigitCount[#]]>-1&] (* Harvey P. Dale, Nov 24 2018 *)

EXTENSIONS

Corrected and Mathematica program replaced by Harvey P. Dale, Nov 24 2018

STATUS

approved

editing