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

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, 106, 47, 221, 103, 225, 238, 236, 255, 225, 285, 205, 54, 168, 23, 161, 148, 122, 106, 57, 13, 271, 171, 247, 497, 132, 177, 198, 148, 136, 137, 133, 61, 358

Offset

1,1

Links

John Cerkan, Table of n, a(n) for n = 1..10000

Mathematica

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 *)

Crossrefs

Cf. A029944, A029947.

Sequence in context: A094124 A141519 A228000 * A200285 A205528 A021731

Adjacent sequences: A029943 A029944 A029945 * A029947 A029948 A029949

Keyword

nonn,base

Author

Patrick De Geest

Status

approved