login
In base 10 notation replace digits of n with their squared values (Version 2).
2

%I #25 Apr 02 2015 11:40:39

%S 0,1,4,9,16,25,36,49,64,81,10,11,14,19,26,35,46,59,74,91,40,41,44,49,

%T 56,65,76,89,104,121,90,91,94,99,106,115,126,139,154,171,160,161,164,

%U 169,176,185,196,209,224,241,250,251,254,259

%N In base 10 notation replace digits of n with their squared values (Version 2).

%H Alois P. Heinz, <a href="/A068522/b068522.txt">Table of n, a(n) for n = 0..10000</a>

%F a(n) = Sum_{i=0..g} d(i)*d(i)*10^i, where n = Sum_{d=0..9} d(i)*10^i is the decimal expansion of n.

%e a(13) = a(1*10^1 + 3*10^0) = 1^2*10^1 + 3^2*10^0 = 10 + 9 = 19.

%e a(14) = a(1*10^1 + 4*10^0) = 1^2*10^1 + 4^2*10^0 = 10 + 16 = 26.

%e a(48) = a(4*10^1 + 8*10^0) = 4^2*10^1 + 8^2*10^0 = 160 + 64 = 224.

%p a:= n-> (s-> add(parse(s[-i])^2*10^(i-1), i=1..length(s)))(""||n):

%p seq(a(n), n=0..70); # _Alois P. Heinz_, Jul 04 2014

%t FromDigits[IntegerDigits[#]^2] & /@ Range@ 53 (* _Michael De Vlieger_, Apr 01 2015 *)

%o (Haskell)

%o a068522 0 = 0

%o a068522 n = 10 * a068522 n' + m ^ 2 where (n', m) = divMod n 10

%o -- _Reinhard Zumkeller_, Jul 08 2014

%Y See A048385 for another version.

%K nonn,base

%O 0,3

%A _Reinhard Zumkeller_, Mar 21 2002