A244557 Numbers obtained by concatenating the squares of the digits of prime(n).

4, 9, 25, 49, 11, 19, 149, 181, 49, 481, 91, 949, 161, 169, 1649, 259, 2581, 361, 3649, 491, 499, 4981, 649, 6481, 8149, 101, 109, 1049, 1081, 119, 1449, 191, 1949, 1981, 11681, 1251, 12549, 1369, 13649, 1499, 14981, 1641, 1811, 1819, 18149, 18181, 411, 449

Offset

1,1

Links

Harvey P. Dale, Table of n, a(n) for n = 1..1000

Formula

a(n) = A048385(A000040(n)).

Example

For n = 7, prime(7) = 17 and a(7) = 149, which is the concatenation of the squares of the digits of 17. For n = 31, prime(31) = 127 and a(31) = 1449; but this term also appears at index 200, in fact prime(200) = 1223 and a(200) = 1449.

Mathematica

Table[FromDigits[Flatten[IntegerDigits/@(IntegerDigits[Prime[n]]^2)]], {n, 50}] (* Harvey P. Dale, Aug 18 2016 *)

Prog

(Magma) [StringToInteger(&cat[IntegerToString(h): h in Reverse([i^2: i in Intseq(p)])]): p in PrimesUpTo(250)];

Crossrefs

Cf. A000040, A048385.

Sequence in context: A158142 A158143 A082200 * A063482 A277312 A069557

Adjacent sequences: A244554 A244555 A244556 * A244558 A244559 A244560

Keyword

nonn,base

Author

Vincenzo Librandi, Jul 02 2014

Extensions

Edited by Bruno Berselli, Jul 02 2014

Status

approved