A082921 Sort the digits of these squares into descending order and drop zeros to get primes.

16, 121, 361, 1024, 1369, 1444, 1600, 1936, 2116, 2401, 3481, 3721, 3844, 5041, 6241, 7921, 8281, 8836, 10201, 11236, 12100, 12544, 13924, 15625, 16129, 17956, 18496, 20164, 21316, 21904, 22201, 22801, 33124, 33856, 34969, 36100, 38809, 39601

Offset

1,1

Links

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

Example

a(4)=1024 because 32^2 = 1024 and 421 is prime.

Mathematica

Select[Range[200]^2, PrimeQ[FromDigits[Reverse[Sort[DeleteCases[ IntegerDigits[ #], 0]]]]]&] (* Harvey P. Dale, Dec 02 2018 *)

Crossrefs

Sequence in context: A161851 A171584 A017030 * A191902 A294140 A014765

Adjacent sequences: A082918 A082919 A082920 * A082922 A082923 A082924

Keyword

base,nonn

Author

Jason Earls, May 25 2003

Status

approved