OFFSET
1,1
FORMULA
a(2k)=a(5k)=0. - Ray Chandler, Oct 23 2003
MATHEMATICA
f[n_] := Block[{k = 1}, While[ p = ToExpression["1" <> ToString[n^k]]; !PrimeQ[p], k++ ]; p]; g[n_] := If[ Mod[n, 10] == 1 || Mod[n, 10] == 3 || Mod[n, 10] == 7 || Mod[n, 10] == 9, f[n], 0]; Table[ g[n], {n, 1, 33}] (* Robert G. Wilson v, Oct 31 2003 *)
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Amarnath Murthy, Oct 19 2003
EXTENSIONS
Corrected and extended by Ray Chandler, Oct 23 2003
STATUS
approved