login
The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A176179 Primes such that the sum of digits, the sum of the squares of digits and the sum of 3rd powers of their digits is also a prime. 1
11, 101, 113, 131, 199, 223, 311, 337, 353, 373, 449, 461, 463, 641, 643, 661, 733, 829, 883, 919, 991, 1013, 1031, 1103, 1301, 1439, 1451, 1471, 1493, 1499, 1697, 1741, 1949, 2089, 2111, 2203, 2333, 2441, 2557, 3011, 3037, 3307, 3323, 3347, 3491, 3583, 3637, 3659, 3673, 3853, 4049, 4111, 4139, 4241, 4337, 4373, 4391, 4409 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,1

COMMENTS

See A091365 for the exceptions for the case where the sum of the digits of p is not prime, but the sum of the cubes of the digits of p is prime.

REFERENCES

Charles W. Trigg, Journal of Recreational Mathematics, Vol. 20(2), 1988. "Hands On Numbers Count", Personal Computer World, 1997, p. 290.

LINKS

Table of n, a(n) for n=1..58.

EXAMPLE

For the prime number n =5693 we obtain :

5 + 6 + 9 + 3 = 23 ;

5^2 + 6^2 + 9^2 + 3^2 = 151 ;

5^3 + 6^3 + 9^3 + 3^3 = 1097.

MAPLE

with(numtheory):for n from 2 to 10000 do:l:=evalf(floor(ilog10(n))+1):n0:=n:s1:=0:s2:=0:s3:=0:for m from 1 to l do:q:=n0:u:=irem(q, 10):v:=iquo(q, 10):n0:=v :s1:=s1+u:s2:=s2+u^2:s3:=s3+u^3:od:if type(n, prime)=true and type(s1, prime)=true and type(s2, prime)=true and type(s3, prime)=true then print(n):else fi:od:

MATHEMATICA

okQ[n_]:=Module[{idn=IntegerDigits[n]}, And@@PrimeQ[Total/@{idn, idn^2, idn^3}]]; Select[Prime[Range[600]], okQ]  (* Harvey P. Dale, Jan 18 2011 *)

CROSSREFS

Cf. A109181, A046704, A052034, A091366.

Sequence in context: A158051 A073064 A155075 * A176196 A303570 A208262

Adjacent sequences:  A176176 A176177 A176178 * A176180 A176181 A176182

KEYWORD

nonn,base

AUTHOR

Michel Lagneau, Apr 10 2010

EXTENSIONS

Corrected and extended by Harvey P. Dale, Jan 18 2011

STATUS

approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified February 19 03:54 EST 2020. Contains 332032 sequences. (Running on oeis4.)