[go: up one dir, main page]

login
A044500
Numbers n such that string 2,5 occurs in the base 6 representation of n but not of n+1.
0
17, 53, 89, 107, 125, 161, 197, 233, 269, 305, 323, 341, 377, 413, 449, 485, 521, 539, 557, 593, 647, 665, 701, 737, 755, 773, 809, 845, 881, 917, 953, 971, 989, 1025, 1061, 1097, 1133, 1169, 1187, 1205, 1241, 1277, 1313, 1349
OFFSET
1,1
MATHEMATICA
SequencePosition[Table[If[SequenceCount[IntegerDigits[n, 6], {2, 5}]>0, 1, 0], {n, 1500}], {1, 0}][[All, 1]] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Nov 27 2018 *)
CROSSREFS
Sequence in context: A287311 A285225 A044119 * A142105 A031383 A248697
KEYWORD
nonn,base
STATUS
approved