

A216023


Fermat pseudoprimes to base 2 divisible by 5.


3



645, 1105, 1905, 2465, 10585, 11305, 16705, 18705, 34945, 39865, 41665, 55245, 62745, 72885, 74665, 83665, 107185, 121465, 208465, 215265, 223345, 266305, 278545, 449065, 451905, 464185, 493885, 588745, 743665, 757945, 800605, 825265, 831405, 898705, 1050985
(list;
graph;
refs;
listen;
history;
text;
internal format)



OFFSET

1,1


COMMENTS

Many Fermat pseudoprimes to base 2 divisible by 5 have one of the following four properties:
(1) the sum of their prime factors is divisible by the sum of their digits:
for 1105 = 3*5*17 we have 35 divisible by 15;
for 1905 = 3*5*127 we have 135 divisible by 15;
for 2465 = 5*17*29 we have 51 divisible by 17;
for 34945 = 5*29*241 we have 275 divisible by 25;
for 62745 = 3*5*47*89 we have 144 divisible by 24;
for 107185 = 3*5*47*89 we have 132 divisible by 22;
for 223345 = 5*19*2351 we have 2375 divisible by 19;
for 451905 = 3*5*47*641 we have 696 divisible by 24.
(2) the sum of their prime factors is divisible by 5 (1105, 1905, 16705, 18705, 34945, 223345, 757945, 800605).
(3) the sum of their digits is divisible by 5 (645, 1905, 11305, 34945, 72885, 208465, 72885);
(4) they are Harshad numbers (645, 1905, 2465, 223345, 757945).
Interesting is that the first property is found to other squarefree numbers, not Fermat pseudoprimes, divisible by 5 (e.g., for 1505 = 5*7*43 we have 55 divisible by 11, for 2555 = 5*7*73 we have 85 divisible by 17). It looks like it's a property which deserves further study.
Note: the four properties from above are also found to other Fermat pseudoprimes to base 2, but not in this high density (taking, for the second and third properties, a prime factor beside 5 and not considering for the third property the prime factor 3, because would be obviously satisfied).


LINKS

Charles R Greathouse IV, Table of n, a(n) for n = 1..10000
Eric Weisstein's World of Mathematics, Poulet Number
Eric Weisstein's World of Mathematics, Harshad Number
Eric Weisstein's World of Mathematics, Sum of Prime Factors
Eric Weisstein's World of Mathematics, Digit Sum


MATHEMATICA

Select[5*Range[2, 210200], PowerMod[2, #  1, #] == 1 &] (* T. D. Noe, Aug 31 2012 *)


PROG

(PARI) Korselt(n)=my(f=factor(n)); for(i=1, #f[, 1], if(f[i, 2]>1(n1)%(f[i, 1]1), return(0))); 1
list(lim)=my(v=List()); forstep(n=645, lim, 20, if(Korselt(n), listput(v, n))); Vec(v) \\ Charles R Greathouse IV, Jun 30 2017


CROSSREFS

Cf. A001567.
Sequence in context: A260838 A304607 A168626 * A100873 A227136 A216364
Adjacent sequences: A216020 A216021 A216022 * A216024 A216025 A216026


KEYWORD

nonn


AUTHOR

Marius Coman, Aug 30 2012


STATUS

approved



