login
The OEIS is supported by the many generous donors to the OEIS Foundation.

 

Logo
Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A052279 Primes such that the sum of the factorials of the digits is a perfect square. 3
17, 41, 71, 211, 433, 457, 547, 1013, 1031, 1103, 1301, 1489, 2063, 3001, 3011, 4451, 5077, 5441, 5651, 5717, 6203, 6551, 7057, 7507, 7517, 8419, 8941, 10163, 10613, 10631, 16103, 16301, 20369, 20639, 20693, 20873, 20963, 21313, 21661, 23003, 23087, 23131 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,1

LINKS

Giovanni Resta, Table of n, a(n) for n = 1..10000

MATHEMATICA

Select[Prime[Range[3000]], IntegerQ[Sqrt[Total[IntegerDigits[#]!]]]&] (* Harvey P. Dale, Apr 11 2016 *)

PROG

(PARI) isok(n) = isprime(n) && (d = digits(n)) && issquare(sum(i=1, #d, d[i]!)); \\ Michel Marcus, Jan 06 2014

CROSSREFS

Cf. A000040, A000142, A000290, A061602.

Sequence in context: A237659 A350052 A078655 * A147215 A126790 A089200

Adjacent sequences:  A052276 A052277 A052278 * A052280 A052281 A052282

KEYWORD

base,nonn

AUTHOR

G. L. Honaker, Jr., Feb 05 2000

EXTENSIONS

More terms from Michel Marcus, Jan 06 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 | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified October 2 01:30 EDT 2022. Contains 357191 sequences. (Running on oeis4.)