cp's OEIS Frontend

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.

A317726 Length of runs of terms in A104381 which differ only in the last decimal place.

This page as a plain text file.
%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