A197945 - OEIS

%I #6 Mar 30 2012 18:51:11

%S 1,0,0,0,0,0,1,1,0,0,0,1,2,1,2,1,2,4,4,6,2,6,11,8,10,22,16,33,30,34,

%T 47,57,81,86,108,112,173,200,232,303,382,465,558,656,857,1051,1261,

%U 1579,1972,2455,2922,3594,4588,5532,6839,8402,10267,12976,15550

%N Length of longest prefix of A096095(n) that is also a prefix of A096095(n+1).

%e a(17) = A055642(5161) = 4, as 5161 is the longest common prefix of A096095(17)=5161310711827714 and A096095(18)=51618211410616387511.

%o (Haskell)

%o import Data.List (inits, isPrefixOf)

%o a197945 n = length $ takeWhile (`isPrefixOf` (show $ a096095 $ n+1)) $

%o                                tail $ inits $ show $ a096095 n

%Y Cf. A055642.

%K nonn,base

%O 0,13

%A _Reinhard Zumkeller_, Oct 19 2011