This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A317726 #10 Aug 23 2018 16:03:48 %S A317726 4,4,2,3,3,2,2,3,2,3,4,1,1,3,1,2,2,2,1,4,1,3,2,1,3,2,2,2,1,1,3,2,2,2, %T A317726 1,2,2,1,2,1,1,3,2,2,3,1,2,2,2,2,2,1,3,2,1,2,2,3,1,3,3,1,2,1,1,3,1,1, %U A317726 2,1,2,2,1,1,1,1,1,4,1,3,1,1,3,2,2,1,1,2,1,1,2,1,2,1,2,1,3,1,1,3,1,3,2,1,2 %N A317726 Length of runs of terms in A104381 which differ only in the last decimal place. %e A317726 a(11) = 4 because there are four elements in A104381 which differ from each other only in their last digit: 101, 103, 107, and 109. %t A317726 Length /@ SplitBy[QuotientRemainder[#, 10] & /@ {1}~Join~Select[Range[1200], PowerMod[10, # - 1, #] == 1 &], First] (* _Michael De Vlieger_, Aug 05 2018, after _Harvey P. Dale_ at A104381 *) %Y A317726 Cf. A104381. %K A317726 nonn,base %O A317726 1,1 %A A317726 _Alexander R. Povolotsky_, Aug 05 2018 %E A317726 More terms from _Michael De Vlieger_, Aug 05 2018