login
This site is supported by donations to The OEIS Foundation.

 

Logo


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

Patrick De Geest

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.

License Agreements, Terms of Use, Privacy Policy. .

Last modified May 21 18:56 EDT 2019. Contains 323444 sequences. (Running on oeis4.)