|
%I #22 Jan 07 2023 09:26:55
%S 0,0,0,0,0,0,0,0,0,0,0,1,0,0,1,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
%T 0,0,0,0,0,0,0,1,0,0,1,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
%U 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
%N Number of times n can be written as concatenation of exactly two nonzero squares in decimal representation.
%C a(A193096(n))=0; a(A191933(n))>0; a(A193097(n))=1; a(A192993(n))>1; a(A038670(n))=2.
%H Reinhard Zumkeller, <a href="/A193095/b193095.txt">Table of n, a(n) for n = 0..10000</a>
%e a(164) = 2, A191933(15) = A192993(1) = 164: 1'64 == 16'4.
%o (Haskell)
%o a193095 n = sum $ map c [1..(length $ show n) - 1] where
%o c k | head ys == '0' = 0
%o | otherwise = a010052 (read xs) * a010052 (read ys) where
%o (xs,ys) = splitAt k $ show n
%o (PARI) A193095(n) = sum( t=1,#Str(n)-1, apply(issquare,divrem(n,10^t))==[1,1]~ && n%10^t>=10^(t-1)) \\ _M. F. Hasler_, Jul 24 2011
%o (PARI) A193095(n)={ my(c,p=1); while( n>p*=10, n%p*10>=p||next; issquare(n%p)||next; issquare(n\p) && c++);c} \\ _M. F. Hasler_, Jul 24 2011
%Y Cf. A010052.
%K nonn,base
%O 0,165
%A _Reinhard Zumkeller_, Jul 17 2011
|
