A061246 Prime numbers with every digit a perfect square, i.e., consisting of only digits 0, 1, 4, 9.

11, 19, 41, 101, 109, 149, 191, 199, 401, 409, 419, 449, 491, 499, 911, 919, 941, 991, 1009, 1019, 1049, 1091, 1109, 1409, 1499, 1901, 1949, 1999, 4001, 4019, 4049, 4091, 4099, 4111, 4409, 4441, 4909, 4919, 4999, 9001, 9011, 9041, 9049, 9091, 9109, 9199

Offset

1,1

Links

Chai Wah Wu, Table of n, a(n) for n = 1..10000

R. Ondrejka, The Top Ten: a Catalogue of Primal Configurations.

Example

a(10) = 419, 419 is a prime and 1, 4 and 9 are squares.

Mathematica

Select[FromDigits/@Tuples[{0, 1, 4, 9}, 4], PrimeQ] (* Harvey P. Dale, Sep 22 2019 *)

Prog

(Python)
from itertools import product
from sympy import isprime
A061246_list = [int(i+''.join(j)+k) for l in range(10) for i in '149' for j in product('0149', repeat=l) for k in '19' if isprime(int(i+''.join(j)+k))] # Chai Wah Wu, Jan 19 2019

Crossrefs

Cf. A066591.

Sequence in context: A165944 A100557 A066591 * A353102 A068493 A167535

Adjacent sequences: A061243 A061244 A061245 * A061247 A061248 A061249

Keyword

base,nonn

Author

Amarnath Murthy, Apr 23 2001

Extensions

Corrected and extended by Jason Earls, May 17 2005

Edited by N. J. A. Sloane, Aug 29 2008 at the suggestion of R. J. Mathar

Status

approved