%I #13 May 05 2017 06:16:23
%S 3,7,5,3,45,11,12,13,47,9,11,15,81,7,63,37,19,21,23,83,46,31,18,29,13,
%T 106,47,221,103,225,238,236,255,225,285,205,54,168,23,161,148,122,106,
%U 57,13,271,171,247,497,132,177,198,148,136,137,133,61,358
%N a(n)^3 contains n-th prime as a substring.
%H John Cerkan, <a href="/A029946/b029946.txt">Table of n, a(n) for n = 1..10000</a>
%t Table[Function[p, k = 1; While[Length@ SequencePosition[ IntegerDigits[Set[c, k^3]], p] == 0, k++]; c]@ IntegerDigits@ Prime@ n, {n, 58}] ^(1/3) (* _Michael De Vlieger_, May 04 2017, Version 10.1 *)
%Y Cf. A029944, A029947.
%K nonn,base
%O 1,1
%A _Patrick De Geest_