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

 

Logo

Annual Appeal: Please make a donation to keep the OEIS running. In 2018 we replaced the server with a faster one, added 20000 new sequences, and reached 7000 citations (often saying "discovered thanks to the OEIS").
Other ways to donate

Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A071176 Smallest k such that the concatenation n'k is a square (decimal notation). 5
6, 5, 6, 9, 29, 4, 29, 1, 61, 0, 56, 1, 69, 4, 21, 9, 64, 49, 6, 25, 16, 5, 104, 336, 6, 244, 225, 9, 16, 25, 36, 4, 64, 81, 344, 1, 21, 44, 69, 0, 209, 25, 56, 1, 369, 24, 61, 4, 284, 41, 84, 9, 29, 76, 225, 25, 6, 564, 29, 84, 504, 5, 504 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,1

COMMENTS

A071177(n) = A000196(n'a(n)).

LINKS

Reinhard Zumkeller, Table of n, a(n) for n = 1..10000

EXAMPLE

a(5) = 29 as 529 = 23^2 and 5'i is nonsquare for i<29, A071177(5)=23.

MATHEMATICA

nksq[n_]:=Module[{idn=IntegerDigits[n], k=0}, While[!IntegerQ[Sqrt[ FromDigits[Join[ idn, IntegerDigits[k]]]]], k++]; k]; Array[nksq, 70] (* Harvey P. Dale, Sep 28 2012 *)

PROG

(Haskell)

import Data.List (findIndex)

import Data.Maybe (fromJust)

a071176 n = fromJust $ findIndex (== 1) $

            map (a010052 . read . (show n ++) . show) [0..]

-- Reinhard Zumkeller, Aug 09 2011

CROSSREFS

Sequence in context: A126689 A243093 A101634 * A243091 A195786 A201330

Adjacent sequences:  A071173 A071174 A071175 * A071177 A071178 A071179

KEYWORD

nonn,base,nice,look

AUTHOR

Reinhard Zumkeller, May 15 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 December 11 22:50 EST 2018. Contains 318052 sequences. (Running on oeis4.)