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

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A246973 n^2 concatenated with (n+1)^2. 5
1, 14, 49, 916, 1625, 2536, 3649, 4964, 6481, 81100, 100121, 121144, 144169, 169196, 196225, 225256, 256289, 289324, 324361, 361400, 400441, 441484, 484529, 529576, 576625, 625676, 676729, 729784, 784841, 841900, 900961, 9611024, 10241089, 10891156, 11561225, 12251296, 12961369, 13691444 (list; graph; refs; listen; history; text; internal format)
OFFSET

0,2

LINKS

Vincenzo Librandi, Table of n, a(n) for n = 0..1000

EXAMPLE

a(2) = 49 because 2^2 = 4 and 3^2 = 9.

a(3) = 916 because 3^2 = 9 and 4^2 = 16.

a(4) = 1625 because 4^2 = 16 and 5^2 = 25.

MAPLE

a:= n-> parse(cat(n^2, (n+1)^2)):

seq(a(n), n=0..40);  # Alois P. Heinz, May 27 2018

MATHEMATICA

Table[FromDigits[Join[IntegerDigits[n^2], IntegerDigits[(n + 1)^2]]], {n, 0, 39}] (* Alonso del Arte, Sep 13 2014 *)

PROG

(MAGMA) [1] cat [Seqint(Intseq(n^2+2*n+1) cat Intseq(n^2)): n in [1..50]]; // Vincenzo Librandi, Sep 13 2014

(PARI) a(n) = eval(Str(n^2, (n+1)^2)) \\ Michel Marcus, Sep 13 2014 and M. F. Hasler, May 27 2018

(PARI) A246973(n)=n^2*10^logint(10*(n+1)^2, 10)+(n+1)^2 \\ Over 4 x faster than using eval(Str(...)). - M. F. Hasler, May 27 2018

CROSSREFS

For primes see A104242.

Cf. A235497.

Sequence in context: A302467 A303249 A215569 * A156192 A205361 A205626

Adjacent sequences:  A246970 A246971 A246972 * A246974 A246975 A246976

KEYWORD

nonn,base,easy

AUTHOR

N. J. A. Sloane, Sep 13 2014

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 16 13:10 EDT 2019. Contains 328068 sequences. (Running on oeis4.)