The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A029949 Smallest prime containing n-th cube as substring. 2
 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 (list; graph; refs; listen; history; text; internal format)
 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: A083982 A029948 A174926 * A083152 A073053 A308106 Adjacent sequences:  A029946 A029947 A029948 * A029950 A029951 A029952 KEYWORD nonn,base AUTHOR STATUS approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

Last modified August 7 17:44 EDT 2020. Contains 336278 sequences. (Running on oeis4.)