OFFSET
1,1
LINKS
John Cerkan, Table of n, a(n) for n = 1..10000
MATHEMATICA
With[{e = 2}, Table[Function[p, k = 1; While[Length@ SequencePosition[ IntegerDigits[Set[c, k^e]], p] == 0, k++]; c]@ IntegerDigits@ Prime@ n, {n, 37}]] (* Michael De Vlieger, May 04 2017, Version 10.1 *)
CROSSREFS
KEYWORD
AUTHOR
STATUS
approved