A044085 Numbers k such that string 1,3 occurs in the base 5 representation of k but not of k-1.

8, 33, 40, 58, 83, 108, 133, 158, 165, 183, 200, 233, 258, 283, 290, 308, 333, 358, 383, 408, 415, 433, 458, 483, 508, 533, 540, 558, 583, 608, 633, 658, 665, 683, 708, 733, 758, 783, 790, 808, 825, 858, 883, 908, 915, 933, 958, 983, 1000, 1133, 1158, 1165, 1183, 1208

Offset

1,1

Links

Paolo Xausa, Table of n, a(n) for n = 1..10000

Mathematica

A044085Q[k_] := StringContainsQ[IntegerString[k, 5], "13"] && StringFreeQ[IntegerString[k - 1, 5], "13"];
Select[Range[5000], A044085Q] (* Paolo Xausa, Sep 23 2025 *)

Crossrefs

Cf. A007091.

Sequence in context: A240547 A031445 A131547 * A319524 A107291 A044466

Adjacent sequences: A044082 A044083 A044084 * A044086 A044087 A044088

Keyword

nonn,base

Author

Clark Kimberling

Extensions

More terms from Paolo Xausa, Sep 23 2025

Status

approved