OFFSET
1,1
COMMENTS
These will always have CCCXC in them.
LINKS
Index entries for linear recurrences with constant coefficients, signature (1,0,0,0,0,0,0,0,0,1,-1).
EXAMPLE
390 = CCCXC; 890 = DCCCXC
MATHEMATICA
Select[Range[2000], StringCount[RomanNumeral[#], "C"]==4&] (* or *) LinearRecurrence[{1, 0, 0, 0, 0, 0, 0, 0, 0, 1, -1}, {390, 391, 392, 393, 394, 395, 396, 397, 398, 399, 890}, 40] (* Harvey P. Dale, Jul 30 2015 *)
PROG
(PARI) lista() = {for (i=0, 9, for (j=0, 9, print1((390+j)+500*i, ", "); ); ); } \\ Michel Marcus, May 14 2014
CROSSREFS
KEYWORD
nonn,easy,less,base
AUTHOR
J. Lowell, May 06 2014
STATUS
approved