A029949 Smallest prime containing n-th cube as substring.

101, 11, 83, 127, 641, 1259, 2161, 3343, 15121, 2729, 10007, 13313, 117281, 12197, 27449, 33751, 40961, 34913, 58321, 68597, 180001, 49261, 106487, 212167, 138241, 156253, 1175767, 196831, 219523, 524389, 270001, 297911

Offset

0,1

Links

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

John Cerkan, Python 2.7

Mathematica

fr[n_] := If[n == 0, {{}}, Join[{Range[9]}, Table[Range[0, 9], {n - 1}]]]; bk[n_] := If[n == 0, {{}}, Join[Table[Range[0, 9], {n - 1}], {{1, 3, 7, 9}}]]; cand[n_, f_, b_] := FromDigits /@ Partition[ Flatten[ Map[ IntegerDigits, Tuples@ DeleteCases[Join[fr[f], {{n}}, bk[b]], {}], 2]], f + b + IntegerLength@n]; a[0] = 101; a[n_] := Block[{m = Infinity, k = 0}, While[m == Infinity, k++; Do[ m = Min[m, Select[cand[n^3, f, k - f], PrimeQ]], {f, 0, k}]]; m]; Array[a, 100, 0] (* Giovanni Resta, May 11 2017 *)

Crossrefs

Sequence in context: A369956 A029948 A174926 * A083152 A073053 A308106

Adjacent sequences: A029946 A029947 A029948 * A029950 A029951 A029952

Keyword

nonn,base

Author

Patrick De Geest

Status

approved