A000870 Numbers beginning with letter 's' in English.
6, 7, 16, 17, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 600, 601, 602, 603, 604, 605, 606, 607, 608, 609, 610, 611, 612, 613, 614, 615, 616, 617, 618, 619, 620
Offset: 1
Links
- John Cerkan, Table of n, a(n) for n = 1..10000
Programs
-
Mathematica
Select[Range[10^3], Function[d, Or[And[Mod[IntegerLength@ #, 3] == 2, MemberQ[{16, 17}, FromDigits@ Take[d, 2]]], MemberQ[{6, 7}, First@ d]]]@ IntegerDigits@ # &] (* Michael De Vlieger, Feb 13 2017 *)
Extensions
Edited by John Cerkan, Feb 13 2017