A029947 Smallest cube containing n-th prime as substring.

27, 343, 125, 27, 91125, 1331, 1728, 2197, 103823, 729, 1331, 3375, 531441, 343, 250047, 50653, 6859, 9261, 12167, 571787, 97336, 29791, 5832, 24389, 2197, 1191016, 103823, 10793861, 1092727, 11390625, 13481272, 13144256

Offset

1,1

Links

John Cerkan, Table of n, a(n) for n = 1..10000

Formula

a(n) = A029946(n)^3. - Michel Marcus, May 04 2017

Mathematica

Table[Function[p, k = 1; While[Length@ SequencePosition[ IntegerDigits[Set[c, k^3]], p] == 0, k++]; c]@ IntegerDigits@ Prime@ n, {n, 32}] (* Michael De Vlieger, May 04 2017, Version 10.1 *)
Module[{nn=300, cbs}, cbs=Range[nn]^3; Table[SelectFirst[cbs, SequenceCount[IntegerDigits[#], IntegerDigits[p]]>0&], {p, Prime[Range[40]]}]] (* Harvey P. Dale, Nov 19 2024 *)

Crossrefs

Cf. A029945, A029946.

Sequence in context: A076394 A133211 A178983 * A030673 A030683 A038840

Adjacent sequences: A029944 A029945 A029946 * A029948 A029949 A029950

Keyword

nonn,base

Author

Patrick De Geest

Status

approved