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
KEYWORD
nonn,base
AUTHOR
STATUS
approved