OFFSET
1,2
COMMENTS
A043347(170) already has over a thousand digits.
MATHEMATICA
a[n_] := (k = Prime[ Floor[n^(3/2)]] + 6; l = Sum[ Prime[i], {i, 1, n - 1} ]; b = ""; Do[ b = StringJoin[b, ToString[ Prime[i]]], {i, 1, k} ]; Return[ ToExpression[ StringTake[ StringDrop[b, l], Prime[n]]]]); Do[ If[ PrimeQ[ a[n]], Print[n]], {n, 1, 180} ]
CROSSREFS
KEYWORD
base,hard,nonn
AUTHOR
Joseph L. Pe, Jan 14 2002
STATUS
approved