login
The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A273359 Numbers k such that the decimal number concat(4,k) is a square. 8
9, 41, 84, 225, 356, 489, 624, 761, 900, 1209, 1616, 2025, 2436, 2849, 3264, 3681, 4100, 4521, 4944, 5369, 5796, 6225, 6656, 7089, 7524, 7961, 8400, 8841, 9284, 9729, 10881, 12164, 13449, 14736, 16025, 17316, 18609, 19904, 21201, 22500 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,1

COMMENTS

Elements are squares of integers in (sqrt(41), sqrt(50)) * sqrt(10)^k without the leading 4 elements for nonnegative k. - David A. Corneth, May 20 2016

LINKS

Nathan Fox, Table of n, a(n) for n = 1..10000

EXAMPLE

84 is a member because 484 = 22^2 is a square.

0 is not a member because 40 is not a square.

sqrt(410) < 21 AND 22 < sqrt(500) < 23 so 21^2 = 441 and 22^2 = 484 give 41 and 84 respectively.

64 < sqrt(4100) < 65 AND 70 < sqrt(5000) < 71 so 65^2 = 4225, 66^2 = 4356, ..., 70^2 = 4900 give 225, 356, ..., 900 respectively. - David A. Corneth, May 20 2016

MAPLE

t1:=[];

for k from 1 to 30000 do

if issqr(k+4*10^length(k)) then t1:=[op(t1), k]; fi;

od;

t1;

MATHEMATICA

Select[Range[45000], IntegerQ[Sqrt[4 10^IntegerLength[#] + #]] &] (* Vincenzo Librandi, Feb 20 2020 *)

DeleteCases[(FromDigits[Drop[IntegerDigits[#], 1]]) & /@ Select[Range[3, 500]^2, IntegerDigits[#][[1]] == 4 && IntegerDigits[#][[2]] != 0 &], 0] (* Alonso del Arte, Feb 20 2020 *)

PROG

a(n) = {my(k=1, t=0); while(n>k, n-=k; t++; k=floor(sqrt(50)*sqrt(10^t))- ceil(sqrt(41)*sqrt(10^t))+1); (ceil(sqrt(41)*sqrt(10^t))+n-1)^2%(40*10^t)} \\ David A. Corneth, May 20 2016

(MAGMA) [n: n in [1..50000 ] | IsSquare(Seqint(Intseq(n) cat Intseq(4)))]; // Vincenzo Librandi, Feb 20 2020

(Scala) (3 to 500).map(n => n * n).filter(n => n.toString.startsWith("4") && !n.toString.startsWith("40")).map(n => Integer.parseInt(n.toString.substring(1))) // Alonso del Arte, Feb 20 2020

CROSSREFS

Cf. A272671, A273357, A273358, A273360, A273361, A273362, A273363, A273364.

Sequence in context: A000451 A000437 A095809 * A251422 A018836 A245932

Adjacent sequences:  A273356 A273357 A273358 * A273360 A273361 A273362

KEYWORD

nonn,base

AUTHOR

Nathan Fox, Brooke Logan, and N. J. A. Sloane, May 20 2016

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 October 24 04:47 EDT 2020. Contains 337975 sequences. (Running on oeis4.)