[go: up one dir, main page]

login
A162198
Even cyclops numbers.
2
0, 102, 104, 106, 108, 202, 204, 206, 208, 302, 304, 306, 308, 402, 404, 406, 408, 502, 504, 506, 508, 602, 604, 606, 608, 702, 704, 706, 708, 802, 804, 806, 808, 902, 904, 906, 908, 11012, 11014, 11016, 11018, 11022, 11024, 11026, 11028, 11032, 11034, 11036
OFFSET
1,2
LINKS
MATHEMATICA
Join[{0}, Select[Range[14000], OddQ[IntegerLength[#]]&&EvenQ[#] && DigitCount[ #, 10, 0] == 1&&IntegerDigits[#][[(IntegerLength[ #]+1)/2]] == 0&]] (* Harvey P. Dale, May 03 2017 *)
CROSSREFS
Sequence in context: A296514 A164856 A160712 * A153225 A070795 A046293
KEYWORD
easy,nonn
AUTHOR
Omar E. Pol, Jul 04 2009
EXTENSIONS
Corrected by Harvey P. Dale, May 03 2017
STATUS
approved