|
|
A082921
|
|
Sort the digits of these squares into descending order and drop zeros to get primes.
|
|
1
|
|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
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
|
|
|
KEYWORD
|
base,nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|