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

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A029948 Smallest prime containing n-th square as substring. 2
101, 11, 41, 19, 163, 251, 367, 149, 641, 181, 1009, 1213, 1447, 1693, 11969, 2251, 12569, 1289, 13241, 1361, 4001, 2441, 14843, 3529, 15761, 6257, 6761, 2729, 7841, 6841, 9001, 6961, 10243, 10891, 115601, 12251, 12967, 11369 (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^2, f, k - f], PrimeQ]], {f, 0, k}]]; m]; Array[a, 100, 0] (* Giovanni Resta, May 11 2017 *)

CROSSREFS

Sequence in context: A084045 A085419 A083982 * A174926 A029949 A083152

Adjacent sequences:  A029945 A029946 A029947 * A029949 A029950 A029951

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 08:53 EDT 2019. Contains 323441 sequences. (Running on oeis4.)