OFFSET
1,3
MATHEMATICA
Table[If[OddQ[n]&&PrimeQ[n], IntegerLength[n], n], {n, 0, 70}] (* Harvey P. Dale, Apr 13 2016 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Mohammad K. Azarian, Aug 17 2007
EXTENSIONS
Offset corrected by Mohammad K. Azarian, Nov 19 2008
STATUS
approved