OFFSET
0,5
MATHEMATICA
Join[{0, 0, 0, 0}, RealDigits[Abs[Log10[Cos[1 Degree]]], 10, 120][[1]]] (* Harvey P. Dale, May 01 2021 *)
CROSSREFS
KEYWORD
nonn,cons
AUTHOR
Mohammad K. Azarian, Nov 17 2005
EXTENSIONS
Corrected and extended by Harvey P. Dale, May 01 2021
STATUS
approved