[go: up one dir, main page]

login
A044368
Numbers n such that string 3,6 occurs in the base 10 representation of n but not of n-1.
0
36, 136, 236, 336, 360, 436, 536, 636, 736, 836, 936, 1036, 1136, 1236, 1336, 1360, 1436, 1536, 1636, 1736, 1836, 1936, 2036, 2136, 2236, 2336, 2360, 2436, 2536, 2636, 2736, 2836, 2936, 3036, 3136, 3236, 3336, 3360, 3436
OFFSET
1,1
MATHEMATICA
Transpose[SequencePosition[Table[If[SequenceCount[IntegerDigits[n], {3, 6}]>0, 1, 0], {n, 4000}], {0, 1}]][[2]] (* The program uses the SequencePosition and SequenceCount functions from Mathematica version 10 *) (* Harvey P. Dale, Mar 10 2016 *)
CROSSREFS
Sequence in context: A105090 A254284 A076578 * A044749 A067865 A272524
KEYWORD
nonn,base
STATUS
approved