login
This site is supported by donations to The OEIS Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A178150 Primes p with digital sum dividing p+1. 1

%I

%S 11,19,31,71,79,101,103,109,167,211,223,263,293,337,367,379,419,431,

%T 461,479,503,571,601,659,769,839,967,1009,1039,1049,1087,1151,1223,

%U 1231,1427,1451,1511,1553,1559,1663,1699,1741,1747,1759,1931,1951,2011,2089

%N Primes p with digital sum dividing p+1.

%C Is the digit sum of each term even?

%H Nathaniel Johnston, <a href="/A178150/b178150.txt">Table of n, a(n) for n = 1..10000</a>

%e 223 has digit sum 7, which divides 224. - _D. S. McNeil_, May 23 2010

%p read(transforms): A178150 := proc(n) option remember: local p: if(n=1)then return 11: fi: p:=procname(n-1): do p:=nextprime(p): if((p+1) mod digsum(p) = 0)then return p: fi: od: end: seq(A178150(n), n=1..68); # _Nathaniel Johnston_, May 28 2011

%t Select[Prime[Range[400]], Mod[# + 1, Total[IntegerDigits[#]]] == 0 &] (* _Vincenzo Librandi_, Dec 21 2018 *)

%o (MAGMA) [n: n in PrimesUpTo(3000)|IsIntegral((n+1)/&+Intseq(n))]; // _Marius A. Burtea_, Dec 17 2018

%o (PARI) is(n) = isprime(n) && !((n+1) % vecsum(digits(n))) \\ _David A. Corneth_, Dec 18 2018

%Y Subsequence of primes of A144980.

%K nonn,easy,base

%O 1,1

%A _Giovanni Teofilatto_, May 21 2010

%E Extended by _D. S. McNeil_, May 23 2010

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 June 16 07:14 EDT 2019. Contains 324145 sequences. (Running on oeis4.)