OFFSET
1,1
EXAMPLE
83 ~ 10002 in base 3.
MATHEMATICA
Do[s=Prime[n]; If[Mod[s, 4]==3, Print[BaseForm[s, 3]]], {n, 1, 256}]
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Labos Elemer, Jul 12 2002
STATUS
approved