login
a(n)^3 contains n-th prime as a substring.
2

%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_