login
This site is supported by donations to The OEIS Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A068522 In base 10 notation replace digits of n with their squared values (Version 2). 2
0, 1, 4, 9, 16, 25, 36, 49, 64, 81, 10, 11, 14, 19, 26, 35, 46, 59, 74, 91, 40, 41, 44, 49, 56, 65, 76, 89, 104, 121, 90, 91, 94, 99, 106, 115, 126, 139, 154, 171, 160, 161, 164, 169, 176, 185, 196, 209, 224, 241, 250, 251, 254, 259 (list; graph; refs; listen; history; text; internal format)
OFFSET

0,3

LINKS

Alois P. Heinz, Table of n, a(n) for n = 0..10000

FORMULA

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.

EXAMPLE

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

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

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

MAPLE

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

seq(a(n), n=0..70);  # Alois P. Heinz, Jul 04 2014

MATHEMATICA

FromDigits[IntegerDigits[#]^2] & /@ Range@ 53 (* Michael De Vlieger, Apr 01 2015 *)

PROG

(Haskell)

a068522 0 = 0

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

-- Reinhard Zumkeller, Jul 08 2014

CROSSREFS

See A048385 for another version.

Sequence in context: A277342 A098733 A083163 * A048385 A230101 A057147

Adjacent sequences:  A068519 A068520 A068521 * A068523 A068524 A068525

KEYWORD

nonn,base

AUTHOR

Reinhard Zumkeller, Mar 21 2002

STATUS

approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified February 17 17:52 EST 2019. Contains 320222 sequences. (Running on oeis4.)