|
%I #11 May 09 2017 18:27:02
%S 5,6,5,24,34,37,42,14,48,23,56,61,21,66,69,73,77,19,26,131,86,89,94,
%T 17,176,318,321,226,331,337,113,146,371,118,339,123,397,128,409,416,
%U 134,426,438,44,346,447,46,473,472,479,483,352,79,501,507,513,519
%N a(n)^2 contains n-th prime as a substring.
%H John Cerkan, <a href="/A029944/b029944.txt">Table of n, a(n) for n = 1..10000</a>
%e E.g. 34^2 = 1156 is first square that contains the string "11".
%t With[{e = 2}, Table[Function[p, k = 1; While[Length@ SequencePosition[ IntegerDigits[Set[c, k^e]], p] == 0, k++]; c]@ IntegerDigits@ Prime@ n, {n, 57}] ^(1/e)] (* _Michael De Vlieger_, May 04 2017, Version 10.1 *)
%Y Cf. A038690, A068165.
%K nonn,base
%O 1,1
%A _Patrick De Geest_
|
