OFFSET
1,1
MATHEMATICA
a={1, 3, 7, 9};
Flatten[Table[Mod[Abs[10-Prime[n]], 10]*10+a, {n, 50}]]
CROSSREFS
KEYWORD
nonn,base,less,uned
AUTHOR
Roger L. Bagula, Jan 09 2004
STATUS
approved