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
Links
- John Cerkan, Table of n, a(n) for n = 1..10000
Programs
-
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 *)
Formula
a(n) = A029946(n)^3. - Michel Marcus, May 04 2017