A292439 List of numbers k whose consecutive digits increase or decrease by d-1, where d is the number of digits in k.

0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 12, 21, 23, 32, 34, 43, 45, 54, 56, 65, 67, 76, 78, 87, 89, 98, 131, 135, 202, 242, 246, 313, 353, 357, 420, 424, 464, 468, 531, 535, 575, 579, 642, 646, 686, 753, 757, 797, 864, 868, 975, 979, 1414, 1474, 2525, 2585, 3030, 3036, 3630, 3636, 3696, 4141, 4147, 4741, 4747, 5252, 5258, 5852, 5858, 6303, 6363, 6369, 6963, 6969, 7414, 7474, 8525, 8585, 9630, 9636, 9696, 15151, 15159, 15951, 15959, 26262, 37373, 40404, 40484, 48404, 48484, 51515, 51595, 59515, 59595, 62626, 73737, 84040, 84048, 84840, 84848, 95151, 95159, 95951, 95959, 161616, 272727, 383838, 494949, 505050, 616161, 727272, 838383, 949494, 1717171, 2828282, 3939393, 6060606, 7171717, 8282828, 9393939, 18181818, 29292929, 70707070, 81818181, 92929292, 191919191, 808080808, 919191919, 9090909090

Offset

1,3

Comments

Finite, 131 terms.

Links

Table of n, a(n) for n=1..131.

Mathematica

Range[0, 9]~Join~Select[Union[Range[10^5], Flatten@ Map[Map[FromDigits /@ {Drop[#, -1], #} &, Table[Flatten@ ConstantArray[#, k], {k, 3, 5}]] &, IntegerDigits@ Range[10, 99]]], If[Length@ #1 == 1, First@ #1 == #2 - 1, False] & @@ {Union@ Abs@ Differences@ #, Length@ #} &@ IntegerDigits[#] &] (* Michael De Vlieger, Dec 09 2017 *)

Prog

(PARI) is(n) = for(i=2, #n=digits(n), if(abs(n[i]-n[i-1]) != #n-1, return(0))); 1 \\ Iain Fox, Dec 08 2017

Crossrefs

Sequence in context: A376300 A033075 A215014 * A132577 A247167 A044960

Adjacent sequences: A292436 A292437 A292438 * A292440 A292441 A292442

Keyword

nonn,base,fini,full

Author

Enrique Navarrete, Dec 08 2017

Status

approved