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

 

Logo

Annual Appeal: Today, Nov 11 2014, is the 4th anniversary of the launch of the new OEIS web site. 70,000 sequences have been added in these four years, all edited by volunteers. Please make a donation (tax deductible in the US) to help keep the OEIS running.

Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A053816 Another version of the Kaprekar numbers: n such that n=q+r and n^2=q*10^m+r, for some m >= 1, q>=0 and 0<=r<10^m, with n != 10^a, a>=1. Here q and r must both be m-digit numbers. 5
1, 9, 45, 55, 99, 297, 703, 999, 2223, 2728, 4950, 5050, 7272, 7777, 9999, 17344, 22222, 77778, 82656, 95121, 99999, 142857, 148149, 181819, 187110, 208495, 318682, 329967, 351352, 356643, 390313, 461539, 466830, 499500, 500500, 533170 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,2

COMMENTS

Consider an m-digit number n. Square it and add the right m digits to the left m or m-1 digits. If the resultant sum is n, then n is a term of the sequence.

4879 and 5292 are in A006886 but not in this version.

REFERENCES

D. R. Kaprekar, On Kaprekar numbers, J. Rec. Math., 13 (1980-1981), 81-82.

D. Wells, The Penguin Dictionary of Curious and Interesting Numbers. Penguin Books, NY, 1986, 151.

LINKS

Table of n, a(n) for n=1..36.

D. E. Iannucci, The Kaprekar numbers, J. Integer Sequences, Vol. 3, 2000, #1.2.

R. Munafo, Kaprekar Sequences

Eric Weisstein's World of Mathematics, Kaprekar Number

Index entries for Colombian or self numbers and related sequences

EXAMPLE

703 is Kaprekar because 703=494+209, 703^2=494209.

MATHEMATICA

kapQ[n_]:=Module[{idn2=IntegerDigits[n^2], len}, len=Length[idn2]; FromDigits[ Take[idn2, Floor[len/2]]]+FromDigits[Take[idn2, -Ceiling[len/2]]]==n]; Select[Range[540000], kapQ] (* Harvey P. Dale, Aug 22 2011 *)

ktQ[n_] := ((x = n^2) - (z = FromDigits[Take[IntegerDigits[x], y = -IntegerLength[n]]]))*10^y + z == n; Select[Range[540000], ktQ] (* Jayanta Basu, Aug 04 2013 *)

PROG

(Haskell)

a053816 n = a053816_list !! (n-1)

a053816_list = 1 : filter f [4..] where

   f x = length us - length vs <= 1 &&

         read (reverse us) + read (reverse vs) == x

         where (us, vs) = splitAt (length $ show x) (reverse $ show (x^2))

-- Reinhard Zumkeller, Oct 04 2014

CROSSREFS

Cf. A037042, A053394, A053395, A053396, A053397, A045913, A003052.

Cf. A055642.

Sequence in context: A087969 A044111 A006886 * A044492 A207359 A243090

Adjacent sequences:  A053813 A053814 A053815 * A053817 A053818 A053819

KEYWORD

nonn,nice,base,easy

AUTHOR

Robert Munafo

EXTENSIONS

More terms from Michel ten Voorde (seqfan(AT)tenvoorde.org) Apr 11 2001

STATUS

approved

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

Content is available under The OEIS End-User License Agreement .

Last modified December 19 20:36 EST 2014. Contains 252239 sequences.