login
A044784
Numbers n such that string 7,1 occurs in the base 10 representation of n but not of n+1.
0
71, 171, 271, 371, 471, 571, 671, 719, 771, 871, 971, 1071, 1171, 1271, 1371, 1471, 1571, 1671, 1719, 1771, 1871, 1971, 2071, 2171, 2271, 2371, 2471, 2571, 2671, 2719, 2771, 2871, 2971, 3071, 3171, 3271, 3371, 3471, 3571
OFFSET
1,1
MATHEMATICA
SequencePosition[Table[If[SequenceCount[IntegerDigits[n], {7, 1}]>0, 1, 0], {n, 4000}], {1, 0}][[All, 1]] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Jun 20 2021 *)
CROSSREFS
Sequence in context: A142344 A278127 A044403 * A142488 A331008 A068364
KEYWORD
nonn,base
STATUS
approved