|
%I #29 Aug 30 2019 06:11:08
%S 25,324,3025,35721,11730625,71132356,1132591716,17136119025,
%T 1923311317225,58191311792329,58191311792329,231372178511929,
%U 1722376411319529,1134152319174379129,472643754131992311729,17298113195343723473641,419723711317595314724329,4319231361106417537475929
%N Smallest square containing the first n primes as substrings.
%C The sequence is infinite.
%e a(6) = 71132356 = 8464^2 contains 2, 3, 5, 7, 11 and 13 as substrings and no smaller square has that property.
%t Do[k = 1; While[! AllTrue[Prime@ Range@ n, StringContainsQ[ToString[k^2], ToString@ #] &], k++]; Print[k^2], {n, 9}] (* _Michael De Vlieger_, Oct 19 2015, Version 10 *)
%Y Cf. A054261, A069600.
%K nonn,base
%O 1,1
%A _Emmanuel Vantieghem_, Oct 17 2015
%E a(15)-a(16) from _Bert Dobbelaere_, Oct 28 2018
%E a(17)-a(18) from _Giovanni Resta_, Aug 27 2019
|
